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I. INTRODUCTION 


A. GENERAL BACKGROUND 

The United States Army is currently developing and testing Force XXI, an 
attempt to redesign itself by the early years of the 21st century to incorporate digital 
technology and advanced weaponry. Accordingly, over the next five years the Army is 
scheduled to devote approximately one-third of its research, development and acquisition 
budget ($28 billion of $87 billion) to solely support these digital technology initiatives 
[Ref. 1]. The main proponent for Force XXI is the United States Army Training and 
Doctrine Command (TRADOC), headquartered at Fort Monroe, Virginia. TRADOC is 
directly responsible for designing the tactical units of the future and developing/writing 
the doctrine by which the Army will fight. In February 1996, TRADOC published 
Pamphlet 525-5, Force X XI Operations, which mandated that the combat service support 
disciplines of man, arm, fuel, fix, move and sustain be automated to the greatest extent 
possible. Concurrently, the strategic logistics vision underpinning the combat service 
support system of the future was jointly developed by the Deputy Chief of Staff for 
Logistics (DCSLOG), the United States Army Materiel Command (AMC), and the 
Combined Arms Support Command (CASCOM). Their future strategic logistics vision 1s 
one of “seamless support: a continuum of support consisting of soldiers and civilians, 
business practices, and an intelligent information network of interrelated systems that 
provides world class support to the Army across the entire spectrum of military 
operations” [Ref. 2]. The concept of seamless support encompasses an integrated effort 


to streamline and unify the current combat service support system that is complex. The 


objective of seamless support is to allow the war-fighter to focus on planning and 
executing the battle while freeing him from the complexities of combat service support 
(CSS) operations and systems. 

To support the future combat service support vision, CASCOM has proposed the 
implementation of the Integrated Combat Service Support System (ICS3) as the Army’s 
single, seamless, integrated and interactive CSS automated management system. ICS3 
will be a “system of systems” incorporating all of the CSS disciplines of manning, 
arming, fueling, fixing, moving and sustaining the force. Specifically, the CSS discipline 
of fueling will be incorporated in ICS3 as the Fuel Automated Subsystem. Ultimately, 
CASCOM plans to have a contractor develop the Fuel Automated Subsystem as part of 
the ICS3 developmental process. 

B. PURPOSE 

The objective of this thesis is to analyze current petroleum operations, to identify 
a target domain for automation as the Fuel Automated Subsystem, and to develop the 
respective software system requirements. From the software system requirements, a 
prototype of the Fuel Automated Subsystem is modeled using the Computer Aided 
Prototyping System (CAPS) to illustrate its viability prior to establishing a contract for 
full subsystem development. 

C. RAPID PROTOTYPING & CAPS 

The use of prototyping in hardware engineering has been widely accepted, but 
remains relatively underutilized in software development. The traditional software 
development methodology dictates that a new system be tested near the completion of a 


project. As a result of the late testing in the traditional approach, errors are found late in 


the development cycle. This untimely discovery of errors typically leads to a poor 
quality product (unreliable and non-maintainable software), late product delivery, and 
cost overrun. 

Conversely, prototyping is an approach to software development and evolution 
that insures that the system’s design meets proposed requirements while it is still in the 
analysis and design stages of development. A prototype is simply an executable test 
version of the proposed software system. The prototype is explicitly used to gain further 
information that can guide analysis and design, and can support automatic generation of 
production code. Prototyping is very appropriate for systems that lack a specific 
requirements definition. Systems without a _ strong requirements definition 
characteristically require several iterations of the prototyping process, each verified by 
the user for correctness/usability, prior to reaching the final production code. 

Since the Fuel Automated Subsystem is a new and novel system that is not 
specifically defined, it lends itself well to the prototyping methodology. Computer 
assistance is required to rapidly construct a prototype for the Fuel Automation 
Subsystem. CAPS provides a set of integrated software tools which use a fifth generation 
language for automated software prototype development. 

D. METHODOLOGY & DELIVERABLES 

The top down approach is the general methodology used to analyze petroleum 
operations, identify a target domain for automation, requirement analysis, and prototype 
development. Specifically, the approach consists of initially analyzing Army 
Regulations, Department of the Army Pamphlets, and Field Manuals that describe the 


current Army fuel system and its procedures to identify a target domain for automation as 


the Fuel Automated Subsystem. From this initial analysis, the Army’s fuel system is 
decomposed into three distinct functional categories: operational functions, personnel 
functions and equipment functions. Since personnel and equipment functionality are 
incorporated in other modules of ICS3, the operational category is further decomposed to 
ultimately identify petroleum accountability as the target domain for automation. With 
the target domain identified, a requirement analysis establishes essential system 
functionality, attributes, and constraints. Based upon the requirements, CAPS is used to 
develop a prototype of the Fuel Automated Subsystem. 

The deliverables are a requirements analysis for the Fuel Automated Subsystem, 
the corresponding prototype, and the thesis. The prototype is available to CASCOM to 
illustrate the viability of the Fuel Automated Subsystem. 

E. ORGANIZATION OF THESIS 

This thesis is divided into four chapters. Chapter I introduces the Fuel Automated 
Subsystem in the context of the Army’s efforts to develop ICS3 as part of Force XX], 
outlines the objective of the thesis, describes the role of CAPS, and addresses the general 
methodology used in the prototype development. Chapter II provides an overview of the 
development of Force XXI, combat service support in Force XXI, the role of ICS3, and 
the current Army fuel system’s structure. Chapter III details the Computer Aided 
Prototyping System. Chapter IV describes the analysis of Army petroleum operations, 
identifies petroleum accountability as the target domain, and develops the requirement 
analysis process and architectural design of the Fuel Automated Subsystem prototype. 


Finally, Chapter V provides conclusions and recommendations for future follow-on work. 


Il. BACKGROUND OF THE FUEL AUTOMATED SUBSYSTEM 


A. INTRODUCTION 

In order to fully understand the role and requirements of the Fuel Automated 
Subsystem within the Integrated Combat Service Support System (ICS3), one must also 
understand the major structural changes that the Army is undergoing as it redesigns itself 
for the 21“ century. The first section of this chapter introduces the Army’s future force - 
Force XXI. The discussion includes a description of the changing mission environment 
and doctrine that has led to the development of Force XXI. Subsequent discussion 
focuses on the characteristics of future Force XXI operations and includes the role of 
information technology. The second section describes the objectives of combat service 
support operations, which adequately support Force XXI. One of the objectives 
discussed is the requirement for a single, seamless logistics system that leverages digital 
technology. The third section specifically describes the current combat service support 
structure, its shortfalls, and the development plans for ICS3 to meet the single, seamless 
logistics system requirement. The final section describes the current automated/manual 
Army fuel system as the functional and procedural baseline for the development of the 
Fuel Automated Subsystem. 
B. FORCE XXxI 

1. Changing Missions and the Future Force 

For the United States Army, the decade of the 90’s has been a period of dramatic 
change. Change has not only occurred in terms of restructuring the force and increasing 


worldwide operations, but also in the doctrine in which military operations are conducted. 


Change in combat operations first became apparent in combat operations at the end of the 
Cold War. Those combat operations included “Just Cause” in Panama in 1989, “Desert 
Shield / Storm” in Southwest Asia in 1990-1991, and “Provide Comfort” in Southwest 
Asia which began in 1991. In these operations much of the change was derived from 
information-age capabilities, increased integration of sister service components into an 
effective battle team, more lethal, survivable, agile weapons systems, and more capable 
soldiers and leaders. Most recently, the Army’s operational missions and experiences 
have been focused on peace enforcement. Peace enforcement operations are not new 
missions for the military, but have become more frequent in the unstable post Cold War 
world. Operations such as “Restore Hope”, “Uphold Democracy”, “Able Sentry” and 
“Joint Endeavor”, all peace enforcement operations, have caused the Army to redirect 
materiel, funds, and personnel resources to accomplish these missions. These operations 
serve to illustrate the doctrinal shift from the forward-deployed Cold War defensive 
Army to a force projection Army. The lessons learned from these peacekeeping missions 
are that they are fluid and dynamic operations. Specifically, the Army has determined 
that peace enforcement requires comprehensive battlefield visualization, robust 
situational awareness, continuous planning and capability for non-contiguous operations 
[Ref. 3]. In order to meet the current changes and challenges, as well as those of the 21° 
century, the Army undertook the mission to determine the force design, capabilities and 
doctrine best suited for the future in order to maintain a qualitative edge over potential 


adversaries. 


2. Evolution of Doctrine and Force Structure 

Historically, the United States Army’s structure and doctrine has continuously 
evolved and improved. The Army has primarily changed due to the incorporation of 
results of operational experiences, new operational concepts, and experimentation in 
force design. The Center for Army Lessons Learned at Fort Leavenworth, Kansas has 
captured and collected information learned from operations and training experiences with 
the sole purpose of providing those lessons to improve force design, doctrine, training 
and organization. For example, the Center for Army Lessons Learned most recently has 
captured the operational changes and experiences of the Army’s humanitarian assistance 
in Rwanda and Somalia, and peacekeeping operations in Somalia, Haiti and Bosnia. New 
and innovative operational concepts have also been continuously developed. In the past, 
new concepts such as the Air Land Battle and Active Defense have ultimately become 
adopted as cornerstones of the Army’s warfighting doctrine. 

The Army has also improved through experimentation - Advanced Warfighting 
Experiments (AWE). Through virtual and live simulations, new approaches to land 
combat can be tested. Virtual simulation enables force developers to conduct progressive 
iterations that ultimately move closer to the ideal force. Live simulations and exercises 
insure real soldiers and units can ultimately execute their required warfighting operations. 
Today, through the approaches of operational experience, operational concepts, and 
experimentation, the Army has developed a new operational concept for land warfare - 


Force XXI. 
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Figure 1. Evolution of Force XXI 


3. Characteristics of Force XXI Operations 

Force XXI, the United States Army of the 21“ century, is the re-conceptualization 
and redesign of the Army’s fighting force at all echelons, from the foxhole in the field to 
the industrial base, to meet the needs of a volatile and ever changing world. Force XX] 
Operations are defined as multi-dimensional, precise, non-linear, distributed, 
simultaneous, and integrated [Ref. 3]. 

Multi-Dimensional — operates in a battlespace that maintains the traditional 
physical dimensions of width, depth, and height as well as the non-traditional dimension 
of the electro-magnetic spectrum. 

Precise — characterized by synchronized attacks on vulnerable units and targets. 
These synchronized operations will require great precision. Precision is enabled by three 
capabilities. First, digitization of information allows informed decisions at all levels. 
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Second, sensors at the tactical, operational, and strategic level linked to analytical teams 
provide situational awareness. Lastly, simulations enable forces to be tailored to best 
meet an emerging situation or crisis. 

Non-Linear — tasks executed across the entire battlespace rather than the massing 
of combat power at the forward line of troops. Non-linearity will also increase the 
requirement for all Army units (maneuver, combat service, and combat service support) 
to provide enhanced security. 

Distributed Pe - enables units to take advantage of inter-networked 
communications and eliminates the use of the chain of command as the sole source of 
information. Decentralization allows subordinates to operate independently within the 
commander’s intent and ultimately allows greater flexibility to changing situations. 

Simultaneous Operations — mult-dimensional, precise, distributed and non-linear 
operations result in the ability of forces to conduct simultaneous operations across the 
entire battlespace. Digitization creates the ability to plan, coordinate, and execute 
operations simultaneously. 

Integration — fully integrated with joint and allied forces. From initial mission 
receipt, deployment, mission execution, and transition to follow on operations, Army 
units will function as part of a joint task force. 

4. Leveraging Information Technology 

Force XXI is to be largely organized and focused around information and 
information technologies. The central and essential feature of this future Army will be its 
ability to exploit information. Two of the main objectives of Force XX] that allow future 


exploitation are the digitization of the battle-space and situational awareness. 


Digitization of the battle-space simply refers to the application of technology to acquire, 
exchange, and employ timely information that is horizontally and vertically integrated to 
create a common picture of the battle field for soldiers and commanders [Ref. 3]. 
Situational awareness provides the capabilities of accurate and real-time information of 
friendly, enemy, neutral, and noncombatant locations. Additionally, situational 
awareness provides a common, relevant picture of the battlefield scaled to a specific level 
of interest and need [Ref. 3]. A digitized battle-space, coupled with situational 
awareness, will ultimately create a synergy among organizations that will greatly enhance 
the Army’s combat capabilities and power projection. 
C. FORCE XXI COMBAT SERVICE SUPPORT 

1. Combat Service Support Defined 

Combat service support (CSS) and the term logistics are closely related but yet 
are very different. Joint Chief of Staff Publication 4.0 defines the broad area of logistics 


as: 


“the science of planning and carrying out of the movement and maintenance of 
forces in its most complete sense: those aspects of military operations which deal 
with (a) design and development, acquisition, storage, movement, distribution, 
maintenance and disposition of materiel; (b) movement, evacuation, and 
hospitalization to include all levels of treatment of personnel; (c) acquisition or 
construction, maintenance, operation, and disposition of facilities; and (d) 


acquisition or furnishing of services” [Ref. 4]. 


Combat service support includes logistics in the battlefield functional areas of 
manning, arming, fixing, fueling, moving, and sustaining soldiers and their systems. 
Combat service support is characterized by anticipation, integration of functions, 


continuity of support responsiveness, versatility to circumstances, and improvisation. 
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2. Logistical Objectives 

To meet the demanding challenges of Force XXI, providers of combat service 
support will be forced to leverage current and emerging technologies. Force XXI 
requires that combat service support be provided faster, more effectively and efficiently 
than ever before. To meet these requirements, the future strategic vision of “seamless 
support” was jointly developed by the Deputy Chief of Staff for Logistics (DCSLOG), 
United States Army Materiel Command (AMC), and the Combined Arms Support 
Command (CASCOM). In order to create a seamless continuum for logistics, the 
commanders from AMC, DCSLOG, and CASCOM approved The United States Army 
Strategic Logistics Plan (ASLP) that documents the strategy, initiatives and 
organizational structure to design and implement the logistical support system for Force 
XXI. The Army’s Chief of Staff, General Gordon R. Sullivan, has called the ASLP, the 
“roadmap to take logistics into the 21" century” [Ref. 5]. The Army has defined eight 
objectives in the Strategic Logistics plan that will serve as the means to achieve the 
vision of “seamless support”. Specifically, the eight Army strategic logistical objectives 
are [Ref. 2]: 

(1) Develop a single, seamless logistics system. 

(2) Standardize operating practices, automation, and communications. 

(3) Reengineer logistics functions. 

(4) Establish visibility of stocks and an integrated distribution system. 

(5) Design a flexible and modular logistics force structure. 

(6) Develop effective mobilization, strategic deployment and redeployment, 


reconstitution, and joint logistics capabilities. 


1] 


(7) Include technology insertion, technical enhancements, and digitization. 

(8) Establish performance measures based on tactical requirements and standards. 
Using the objectives above, CASCOM is responsible for creating the Force XXI 
logistical organizations capable of “seamless support.” To insure the support required by 
Force XXI is provided, future combat service support organizations must simply be 
designed to operate at an equivalent or higher level than the combat forces they support. 
The faster and more responsive combat support structure will require greater control of 
resources, information and communications. As a result, the logistics community can no 
longer rely on large inventories managed by telephone and the legacy systems of the past. 
In order to meet these strategic logistics objectives, the logistics community has 
undertaken several initiatives that develop information-based systems to support the 
future combat force. One of these main initiatives is the development of the Integrated 
Combat Support System (ICS3). 
D. INTEGRATED COMBAT SERVICE SUPPORT SYSTEM 

1. Current CSS Structure (Pre-Integrated Combat Service Support System) 

a. Procedures and Operating Methods | 
The current policies and procedures for accomplishing combat service 

support functions are directed by various Department of the Army and Department of 
Defense publications (1.e. MILSTRIP and MILSTAMP). These directed data formats and 
procedures are used by all organizations and systems that deal the management of 
personnel, finance, logistics, and distribution of materiel from the acquisition of the item 
to its ultimate consumption/use by the end user. Today’s automation procedures have 


many shortfalls and use a combination of batch processing, mini-batch, and interactive 


IZ 


processing. Many of these automated systems work separately with limited data sharing 
and source data is almost non-existent. Currently, there is an insufficient level of 
automation and corresponding communication networks to support the CONUS-based 
force projection strategy described in FM100-5, Operations. Additionally, there is no 
universal theater/national asset visibility or management tool available for the logistician 
and the commander to assess materiel and readiness posture. 

b. Information Flow 

Chia logistical information flow is both manual and automated in 
nature. Data is physically transported vertically to and from the lowest tactical level to 
the national level. Accordingly, this vertical information flow of manual data hinders the 
corresponding horizontal flow. The manual data flow process is characteristically a time 
and labor intensive process which 1s prone to error, duplication, delays, and loss of data. 
Manual methods are used at all Army levels until eventually entry points to an automated 
system are reached. To minimize the amount of manual information flow, automation 
has been progressively implemented throughout the Army. 

Individual Army combat service support automation systems, known as 
Standard Army Management Information Systems (STAMIS) have developed separately 
during the evolution of the information age. However, data cannot be efficiently. 
transferred vertically or horizontally within a functional system, or between such 
systems, due to their “stove-pipe” nature. Information flow is routinely hindered by 
antiquated, obsolete, and un-linkable computer systems, software languages, operating 


systems, varying source data input, and by the lack of connectivity/interfaces. 
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Figure 2. Current 'Stove-pipe' STAMIS [Ref. 6] 


This lack of information sharing and efficient system interfaces can lead to 
supply requests which may not be processed in a timely and accurate manner. Users of 
the current automated systems often must hand-carry data (magnetic media and disks) 
across the battlefield to perform routine combat service support missions. This 
messenger network is commonly referred to as the “sneaker net”. In some cases, data 
must be retrieved from one functional system, downloaded, reformatted, manipulated, 
and then reentered into another related functional system that requires the same exact 
data elements and information, thus causing delays and errors. Further impeding 
information flow, the financial, personnel, and unit movement automation has not been 
fully integrated with other combat service support systems. 

As a result of fractured combat service support automation, customers 
have developed a number of unique systems that do not work with the standard systems 
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or support combined/joint automation requirements. In short, for combat service support 
automation, presently there is no seamless and interactive flow of information but rather 


distinct islands of automation. 


ee? 
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Figure 3. Current STAMIS Environment [Ref. 6] | 

c. Security 

Army combat service support automation security is established in 
accordance with AR 380-19, Department of the Army Information Security Program. A 
password and user identification that limits system access is commonly used, and 
controlled by the system administrator. The password/user identification system coupled 
with physically separate systems serves as the primary means of maintaining security for 
combat service support systems operating at different security levels. This total physical 


separation between automated systems at different security levels also contributes to 


ile. 


interrupted data flow. Output reports from automated systems are required to contain 
sensitivity markings, and audit trails are maintained internally by the systems. 

2. Integrated Combat Service Support System Overview 

To meet the shortfalls in current Army combat service support systems, the 
Integrated Combat Service Support System (ICS3) will be the total Army’s (i.e. active 
Army, Army Reserve, and National Guard) single seamless, integrated, and interactive 
combat service support management system [Ref. 7]. ICS3 specifically supports the 
Force XXI digitized Army and will also constitute the Army’s portion of the Global 
Combat Support System (GCSS). ICS3 also will enhance situational awareness and 
encompass all combat service support disciplines so as to man, arm, fix, fuel, move, and 
sustain the force under one single automated system. ICS3, as a single automated 
system, will maximize the use of source data automation to reduce data transcription 
errors and improve accuracy. The structure of ICS3 will be modular and will be able to 
function in support of split based operations, joint operations, and operations supporting 
allied nations. 

3. Development of the Integrated Combat Service Support System 

While ICS3 supports situational awareness for command and control, its primary 
purpose is to automate the combat service support processes for the total Army. The 
ICS3 will be seamless, integrated, modular, and interactive at all force support levels. 
The system will operate on commercial off the shelf (COTS) non-developmental item 
(NDI) computer equipment. The modular design of ICS3 allows the system to be tailored 


to accommodate different combat service support missions and organizations. [CS3 will 
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further provide combat service support units at all levels, a responsive and efficient 
capability to anticipate, allocate, and synchronize resources, services, and information. 
Development of ICS3 will not be a totally new program. The development of 


ICS3 is scheduled to follow a three phased evolutionary strategy. 
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Figure 4. ICS3 Phased Development [Ref. 6] 


Phase I provides an initial operational capability. Phase II provides an interim 
enhanced capability, and Phase III is scheduled to ultimately achieve full operational 
capability. The system development will initially integrate and modernize the current 
logistics STAMIS, then implement improvements that integrate wholesale and retail 


combat service support, and eventually achieve joint integration. 


Phase_I — Initial Operational Capability: In this phase, an initial operational 


capability will be developed through integration and modernization of the current tactical 
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logistics STAMIS. The capabilities to be integrated during this phase are supply, 
property, ammunition, and maintenance functions. The corresponding tactical logistics 
STAMIS to be functionally integrated include: the Unit Level Logistics system (ULLS); 
Standard Army Retail Supply System (SARRS); Standard Army Property Book System 
(SPBS); Standard Army Ammunition System (SAAS); and the Standard Army 
Maintenance System (SAMS). The planned modules include: 

(1) a supply and property module that integrates supply operations and property 
accountability. 

(2) a modernized maintenance module that integrates maintenance operations 
(ground, aviation, petroleum equipment, etc.) at each level of maintenance. 

(3) an ammunition supply point module that integrates class V management and 
operations at ammunition supply points. 

(4) a supply support aii module that integrates supply management and 
operations at supply support activities. 

(5) an integrated materiel management module that integrates supply, property, 
ammunition, and maintenance management in all materiel management 
organizations. 

(6) A management module that integrates information from multi-functional CSS 
data sources and allows for data exchange with other ICS3 modules and 
external systems. 

The ICS3 will also have interfaces so that users can gain access to information and 
exchange operational data in CSS functional areas such as personnel, medical, finance, 


transportation, training, and unit administration. 





Figure 5. ICS3 Phase I [Ref. 6] 


Phase I] — Enhanced Operational Capability: In this phase, the initial ICS3 


Phase I capabilities will be enhanced by including the processes associated with 
wholesale logistics. The design and development of C33 during this phase will be 
shaped by further advances in technology, results from advanced warfighting 
experiments (A WE), new battlefield distribution concepts and Force XXI initiatives. 
Phase III — Full Operational Capability: This phase will be completed with the 
implementation of all required interfaces to the automation systems of the joint 
community and applicable allied systems. The full operational capability will provide the 
seamless, integrated, modular, interactive, and interoperable combat service support 


system for the total Army. 
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4. Integrated Combat Service Support System End State Vision 

The final state of the ICS3 developmental plan will ultimately result in a “system 
of systems” that automates the combat service support functions of manning, arming, 
fixing, fueling, moving, and sustaining the force. The ICS3 will have unified, organized 
and enhanced the legacy STAMIS initiatives of both retail and wholesale logistics. The 


system will provide one common integrated source of logistical data. 
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Figure 6. ICS3 a "System of Systems" [Ref. 6] 


The benefits of ICS3 are great and can most clearly be illustrated in the simple 
scenario of a unit commander who would like to determine the status of the unit’s motor 
pool. Currently, the unit commander must extract information from six different 
STAMIS that are most likely not co-located in order to obtain an overall picture of the 


status of his unit’s vehicle fleet. 
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Figure 7. Motor pool example of the benefits of ICS3 Ref. 6] 


From the Standard Property Book system (SPBS-R) located at the property book 
office, the commander can determine the unit’s equipment density; the number of 
vehicles currently on-hand verses the number authorized. From the Standard Army 
Training System (SATS) in the S-3 office and Standard Army Installation/Division 
personnel System (SIDPERS) in the S-1 office, training and personnel strength can be 
determined. To determine which vehicles are non-mission capable, the Unit-Level 
Logistics System (ULLS-G) and Standard Army Maintenance System (SAMS) located in 
the motor pool must be accessed. Lastly, the Standard Army Retail Supply System 
(SARRS) displays the due-in status for the parts needed to fix any non-operational 
vehicle. In this scenario, there is no STAMIS that provides the commander or logistician 


an accurate assessment of the unit’s fuel status. Under ICS3, the commander will simply 
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use one computer to navigate through a series of icons/windows to have complete 
visibility of the motor pool. 

On a larger scale, ICS3 supported by a responsive communications network can 
enhance the battlefield commander’s decision making capability by providing timely and 
accurate status reports on units, equipment, and supplies. As a result, the commander 
will have the capability to optimize allocation and use of limited CSS assets to meet the 
needs of the force. By having a common integrated automation system, the collection, 
processing, and transferring of unnecessary or redundant data from the tactical, strategic, 
and operational levels will be eliminated. 

E. CURRENT ARMY FUEL SYSTEM PROCEDURES & AUTOMATION 

Phase I of the ICS3 developmental plan develops initial operational capability to 
include retail logistics through the integration and modernization of the current tactical 
logistical STAMIS. At the retail level, the current Army fuel system 1s only partially 
automated. No dedicated STAMIS exists for fuel management and most procedures are 
still conducted manually. As a result of limited automation, the Army’s fuel supply 
system has distinct shortcomings. These shortcomings were identified during the FY 84 
through FY 91 U.S. Army Audit Agency audits of 27 Army installations. The audit of 
bulk petroleum management and accountability yielded three main conclusions [Ref. 8]: 

(1) Supply Support Activities and using units did not adequately account for bulk 

petroleum products. 

(2) Control of deliveries from contractors was not effective. 


(3) Physical security measures did not adequately safeguard petroleum products 
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To alleviate the shortcomings during ICS3 development phase I, the current limited retail 
fuel automation capabilities must be integrated and the manual procedures modernized / 
automated when developing the Fuel Automated Subsystem. 

1. Petroleum Product Classifications and Retail Operations 

The term’s fuel and petroleum are synonymous with class III. Class III is the 
common Army supply classification for petroleum products, and includes bulk fuels (i.e. 
diesel, gasoline, etc.) and packaged petroleum products (i.e. motor oil, grease, antifreeze 
etc.). Packaged petroleum products are managed/accounted for by the same procedures 
that apply to other classes of supply (i.e. repair parts, expendable supplies, etc.) and will 
be captured in the development of the Standard Supply Subsystem within the Supply 
Support Module of ICS3. Accordingly, the remaining sections only address current bulk 
fuel functions and management at the retail level since it serves as the basis for 
determining the requirements of the Fuel Automated Subsystem. 

Retail fuel operations are conducted at class III supply points and include the 
general functions of receipt, storage, issue, and quality assurance / surveillance. 
However, inherent in these basic operations is the requirement to manage petroleum 
operations. Petroleum management involves maintaining accurate accounts and 
executing appropriate quality control procedures for all receipts, issues, and stocks on 
hand. 

2. Manual Fuel Management 

At the class III supply point, accountability 1s maintained through managing the 
receipt, storage, and issue of class III products. AR 710-2, Inventory Management 


Supply Policy Below the Wholesale Level, specifically mandates the requirement to 
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maintain an accurate account of all petroleum receipts, issues, and stocks on hand. To 
accomplish the inventory and accountability requirements of bulk fuels per Army 
regulation, the following five manual documents and reports are currently used: 

DD Form 1348-1] — Whenever bulk petroleum is received at the Class III supply 
point, Department of Defense (DD) Form 1348-1 (DOD Single Line Item 
Release/Receipt Document) is generally used as the receipt document. The form is a six- 
part, carbon-interleaved form. The form is specifically used to verify that the supply 
point has received the correct amount and type of fuel. Upon receipt, an individual 
verifies the type and amount of fuel and then completes the form by signing and dating it. 

DA_ Form 2765-1] — The supply point customer uses Department of the Army 
(DA) Form 2765-1 (Request for Issue or Turn-in) to request packaged.and bulk products 
to be delivered by tank trucks and semi-trailers. The form may also be used for the turn- 
in of excess cans, drums, or supplies. The individual making the issue completes the 
form by annotating the issued quantity, initialing the form, and then dating it. 

DA _ Form 3643 — The DA Form 3643 (Daily Issues of Petroleum Products) is a 
detailed daily record of all fuel products issued and received at the supply asin 

DA Form 3644 — The DA Form 3644 (Monthly Abstract of Issues of Petroleum 
Products and Operating Supplies) is used to show the total monthly issues and receipts of 
petroleum products and operating supplies. 

DA Form 4702-R — The DA Form 4702-R (Monthly Bulk Petroleum Accounting 
Summary) is used to report all losses or gains revealed by monthly inventories. 
Inventory losses reflected on this form which exceed those allowed by AR 703-1, or that 


are disapproved by the approving authority (the first lieutenant colonel in the chain of 
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command) must be supported by a report of survey. Gains in excess of the allowable 
limits must also be investigated to determine the cause. A copy of the investigation report 
must be attached to DA Form 4702-R as a supporting document. 

An illustration of each of these forms is provided in Appendix A of this thesis. 
Additional guidance on the use of these forms can be found in Department of the Army 
Pamphlet 710-2-1 (Using the Unit Supply System: Manual procedures) and 710-2-2 
(Supply Support Activity Supply System: Manual Procedures). A summary of the 
overall interaction between these fuel accountability documents as prescribed in AR 710- 


2 and DA Pam’s 710-2-1- and 710-2-2 is illustrated below. 
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Figure 8. Fuel Documentation Flow 


Also inherent in fuel management is the aspect of quality surveillance. The 
quality surveillance mission is to maintain the quality of petroleum products from point 


of origin to the point of use. The quality surveillance program encompasses bulk fuel in 
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waterborne carriers, tank cars, tank vehicles, pipeline systems, bulk storage, and 
packaged products. Detailed information regarding the specific procedures for 
inspecting, sampling, testing, and handling for each storage and/or transportation mode is 
contained in the references listed below. 

Bulk Storage — AR 703-1, DOD 4140.25M, Federal Test Method Standard 791, 
Military Handbook 200, Military Handbook 201, Military Standard 140, Military 
Standard 140, Military Standard 161, and Military Standard 457. 

Bulk Transportation Classes : 

Marine — Commander of Military Sea-lift Command Instructions 3121.3, 
DOD 4140.25M, Military Handbook 200, and Military Handbook 201. 

Tank Cars and Tank Vehicles — AR 703-1, DOD 4140.25M, FM 10-69, 
FM 10-71, Military handbook 200, and Military Handbook 201. 

Pipeline — AR 703-1, AR 715-27, DOD 4140.25M, FM 10-18, FM 10-20, 
FM 10-70, FM 10-207, Military Handbook 200, Military Handbook 201, and Military 
standard 161. 

In all cases, the procedures for inspecting, sampling, testing, and handling are 
accomplished manually. These tasks involve soldier involvement to actually take a 
sample of a petroleum product, conduct laboratory tests, etc. The physical procedures 
required in quality surveillance are currently not automated, and would prove difficult to 
automate. 

3. Automated Fuel Management 

Fuel management is automated to a very limited extent. Currently, fuel 


requisitions for both packaged and bulk petroleum products can be entered in the Army’s 
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automated supply system through ULLS, the Unit Level Logistics System. From ULLS, 
the requisition transitions through SARSS and SAILS (the intermediate supply level), 
where it may be filled. If the requisition is not filled at the intermediate supply level, the 
requisition 1s passed to the Defense Fuel Supply Center’s Fuel Automated System (the 
whole sale supply level). The Defense Fuel Supply Center (DFSC) acts as the Defense 
Logistics Agency’s (DLA) designated representative, conducting all of the Department of 
Defense’s management of fuel inventories and war reserves. A diagram of this procedure 


and the different system functionality is illustrated below. 
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Figure 9. Current Fuel Automation Structure 
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The automated flow, however, only handles requests for petroleum products. All retail 
level management functions associated with the receipt, issue, and storage of bulk fuels 
are not automated. 

A new initiative to provide fuel asset visibility has most recently been 
incorporated within the Army’s Advanced Warfighting Experiments. Applique, is a new 
software/hardware suite that digitizes command and control at brigade level and below. 
Applique, is also a subsystem of Force XXI Battle Command, Brigade and Below 
(FBCB2) and provides the commander or logistician a relevant picture of the current 
combat service support situation at his/her echelon as well as visibility to subordinate 
units. It specifically is designed to provide combat service support situational awareness 
and enhanced capability to synchronize support to customers. The combat service 
support functionality in Applique includes logistics situational reports, personnel 
situational reports, situational awareness, requests for support, and logistical task order 
messaging. 

Applique is designed to interface with another new test system - the Combat 
Service Support System (CSSCS). CSSCS provides desired command and control 
information to CSS and force level commanders’ and their staffs based upon data 


received from the legacy CSS STAMIS and CSS functional elements. 


28 











Applique / FBCB2 
Supply Point Status Report 
Digital Fuct Hauler Status Report 











Call for Support / Logistics Tasking Order 


Tactical Vehicle Digital Diagnostics and Prognostics Sensors 


Combat Service Support Control System 
Force Echelon Report 


Item Supply Point Report 
Locations 
Supply Point Report 


Unit Report 


Figure 10. New Fuel Automation Initiatives 


While these new test systems provide situational awareness and fuel asset visibility, retail 
fuel management functions associated with the receipt, issue, and storage of bulk fuels 


remain un-automated. 
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Ill. COMPUTER AIDED PROTOTYPING SYSTEM 


A. INTRODUCTION 

The Computer Aided Prototyping System (CAPS) is a computer aided software 
engineering tool, developed at the United States Naval Postgraduate School, used for 
automated, real-time software prototype development. In this thesis, CAPS is the 
software engineering tool used to develop a prototype of the Fuel Automated Subsystem 
of ICS3. The objective of CAPS is to “assist Department of Defense program managers 
and engineers to rapidly evaluate requirements for military real-time control software 
using executable prototypes and to test and integrate completed subsystems through 
evolutionary prototyping” [Ref. 9]. CAPS is a self-contained, complete developmental 
environment that incorporates graphical system decomposition and design, interface 
design and integration, real-time scheduling, and compiler support. CAPS also provides 
automated support for software reuse. 
B. THE PROTOTYPING PROCESS 

1. Traditional Software Development 

Prototyping is widely used in conventional industrial. manufacturing to refine 
requirements and to provide a tangible product that can be verified against customer 
needs. In software development, however, prototyping is not widely used. 

The traditional approach to software development is commonly known as the 
“waterfall” method. In the “waterfall’ method, a developmental project proceeds in 


distinct phases - analysis, design, coding, testing, and maintenance. 
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Figure 11. Traditional Software Development - ''Waterfall Method" [Ref. 10] 


With the “waterfall” methodology, the testing phase at the conclusion of the 
project is an extensive attempt to insure the system functions properly and meets 
customer needs. However, the major flaw in this approach is that system 
requirements/functionality is determined early during the requirements analysis phase. 
Requirements can not be simply frozen during system development, but rather tend to 
change and evolve. Additionally, without trial use of the system, the customer cannot 
effectively validate requirements. As a direct result of these distinct problems, 
requirement errors are only discovered at the end of development in the maintenance 
phase, when typically the budget is nearly expended and the target system development 
date has past. The ultimate consequence is that there are no immediate ways to recover 
from any major errors without a significant investment of time and money. The cost of a 
requirement error rises exponentially during the software developmental process. 
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Specifically, discovering a requirement error at the end of the “water fall” developmental 
process costs approximately 100 times more to fix than if it was initially identified early 
during the requirements analysis phase [Ref. 11]. 

2. Rapid Prototyping 

Prototyping is the process of developing a “concrete executable model of selected 
aspects of a proposed system” [Ref. 12]. Rapid prototyping is a further extension of the 
prototyping that allows the quick development of an executable program that 
demonstrates feasibility, can be reviewed by the customer for accuracy, and easily 


modified/refined. The prototyping process is iterative in nature. 


Initial goals 
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Determine ie Design prototype 
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Problems 


Prototype 


No 
Demonstrate 
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Yes 


Validated requirements 


Construct Modularization + Objects ~ 
production 
system 


Figure 12. The Prototyping Cycle [Ref. 12, 13] 





In rapid prototyping, the system designer and the user jointly develop initial 
requirements and specifications for the critical parts of a system. These requirements 
serve as the basis to design a prototype that can be demonstrated to the customer. The 
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prototype is a partial representation of the system and includes only the necessary 
attributes to meet the requirements. The prototype simply serves as an aid in analysis and 
design. From the prototype, the customer can clearly determine if the prototype meets his 
or her needs. If the prototype is accurate, development of a production system can 
proceed. However, if the prototype does not meet the customer’s requirements, any 
shortcomings can be addressed and the requirements used to build the prototype 
modified. The prototyping cycle continues until the customer ultimately is provided a 
prototype that meets his/her needs. Once the valid prototype has been identified, the 
requirements captured in the prototype serve as the starting point for production code 
development. In some cases, the prototype itself may actually serve as the basis of the 
production code. Further system development is typically required since the prototype 
[Ref. 12]: 

(1) may not include all of the aspects of the total system. 

(2) may have been implemented using other resources not available in the actual 

system environment. 

(3) may not be capable of handling the full demands of the actual system. 

The prototyping approach solves the flaw of late identification of requirement 
errors 1n the traditional “water fall” software methodology. In the prototyping approach, 
the requirement changes are identified early during the iterative prototyping process as 
opposed to the maintenance phase of production code in traditional development. Since 
the prototype description is typically simpler than production code, it is more suited to 
easy modification at great cost and time savings. This flexibility also makes prototyping 


quite attractive for systems that have undefined or rapidly changing requirements. 
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o CAPS DEVELOPMENTAL ENVIRONMENT 


The Computer Aided Prototyping System (CAPS) is an integrated software 
development environment that is at the heart of the requirement generation process used 
in this thesis. The Prototype System Description Language (PSDL) in CAPS is designed 
for specifying real-time systems. The PSDL descriptions produced by CAPS provide a 
formal and unambiguous definition of the modeled system. 

CAPS consists of four major components: a set of editors for design entry, a 
software base of reusable components, and an execution support system to construct the 
executable prototype. By using the CAPS graphics and text editors, the user can create a 
prototype that specifies the essential requirements of the system. The editor enforces 
consistency and enables rapid construction of an accurate model. The system uses the 
Transportable Application Environment (TAE) to construct a graphical user interface 
(GUI) for the prototype. Once the prototype is specified, the user translates and 
schedules the prototype and then automatically creates an executable driver program that 
incorporates the requirements of the specification file. 

1. Prototype System Description Language 

A prototyping system description language (PSDL) must be easy to read in order 
to serve as design documentation, but also must be formal enough for mechanical 
processing in the rapid prototyping environment [Ref. 14]. The Computer Aided 
Prototyping System’s PSDL computational model is based on the following augmented 
graph [Ref. 14]: 


G=(V,E, T(v), C@)) 


Bi 


The vertices, V, represent operators. The edges, E, represent data streams. The timing 
and control constraints T (v), C (v) can be applied to each vertex. The major constructs 
and concepts of the PSDL are operators, streams, types, timing constraints, and control 
constraints [Ref. 11]. 

a. Operators 

Operators are designated in the CAPS graphical editor as either circles or 
rectangles. Circles represent proposed software components and the rectangles represent 
simulated external systems. Each operator is identified through a unique name and can 
also be assigned a maximum execution time. Operators can be further decomposed and 
are identified as double circles. Decomposed operators are known as composite 
operators. Any operator that is not decomposed is known as an atomic operator and will 
be ultimately implemented in the Ada programming language. Operators that output a 
value based solely on a set of input values are known as functions. Operators that have 
output based on one or more state variables are known as state machines. 

b. Streams 

Streams represent communications linking a set of one or mer producer 
operators to a set of one or more consumer operators. There are two possible types of 
streams. The first type, the sampled stream, acts as the equivalent of a programming 
variable. The sampled stream models continuous data such as sensor output and only the 
most recent data value is of interest. The second type, the data flow stream is a stream 
that has a consuming operator triggered on every occurrence of data on the stream. The 
consuming operator removes each data occurrence after it has been read. Data flow 


streams model discrete transactions. 
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c. Types 

PSDL contains standard predefined types such as boolean, character, 
string, integer, real, and type constructors (set, sequence, map, tuple, etc.). Additionally, 
the PSDL has the ability to handle user defined abstract data types. 

d. Timing Constraints 

Timing 1s a critical issue in modeling real-time software systems. Timers 
serve aS a software stopwatch and are declared in the implementation portion of a 
composite operator. roe operator that is given a timing constraint is considered time 
critical, and is given scripted, static scheduling priority. There are two kinds of time 
critical operators - periodic and sporadic. Periodic operators are assigned a maximum 
execution time and a period. Additionally, a periodic operator may be assigned a finish 
within time. The maximum execution time is the scheduled processor time for execution 
of the operator. The period controls how frequently the operator executes its respective 
code. The finish within time forces completion of the execution during a portion of the 
period. Sporadic operators are assigned a minimum calling period as well as maximum 
response time. The minimum calling period places a lower bound on the time between 
consecutive input data arrivals. The maximum response time places an upper bound on 
the time between input data arrival and the completion of execution. 

e. Control Constraints 

Control constraints provide conditional execution of operators. Triggers 
and execution guards are used within the PSDL to gain conditional execution. The PSDL 
allows for two different types of triggers to restrict the conditions that an operator 


executes. The “by all” trigger is assigned to an operator when the user desires to restrict 
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the operator to executing only if all of the listed streams have new data. The “by some” 
trigger is closely related to the “by all” trigger, except that new data is required on only 
one stream to stimulate execution of the designated operator. Execution guards are 
conditional statements similar to an “if-then-else” statement, and are evaluated based on 
data received from one or more of the streams or state variables. If the execution guard 
condition is satisfied, the operator executes. If the execution guard is not satisfied, the 
operator simply does not execute. 

2. Additional CAPS Resources 

CAPS version 1.2 was used for the development of the Fuel Automated 
Subsystem. CAPS continues to be further enhanced at the United States Naval 
Postgraduate School. Additional information regarding CAPS, to include user manuals, 
prototype demonstrations and current CAPS projects, can be found on the Internet at 


[http://wwwceaps.cs.nps.navy.mil]. 
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IV. REQUIREMENTS ANALYSIS AND MODELING 


A. INTRODUCTION 

Various models have been developed to describe the traditional software 
developmental process. While each of the models may vary slightly, it is generally 
agreed that software development consists of several qualitatively different activities. 
These distinct activities are requirement analysis, functional specification, architectural 
design, implementation, and evolution [Ref.15]. Inherent in each of these activities is the 
aspect of quality assurance. The flaw in the traditional “waterfall” software development 
approach is the late identification of any requirement errors. Prototyping as described in 
chapter 3 solves this flaw through an iterative process where the designer and user jointly 
develop the initial requirements and specification for the critical parts of the system. The 
requirements then serve as the basis to develop a prototype system that ultimately can be 
demonstrated to the customer. This chapter describes the software developmental 
process in terms of the software developmental activities for the prototype of the Fuel 
Automated Subsystem. 
B. REQUIREMENTS ANALYSIS 

The main purpose of requirement analysis is to identify a customer’s needs in 
sufficient detail to plan the construction of a software system to meeting those needs 
[Ref. 15]. Typically, a model of the systems environment is built that captures the 
problem the system must solve in order to refine and formalize requirements. The model 
assists in identifying the goals and constraints of the customer organization, which 
motivate the goals and constraints of the proposed software system [Ref. 15]. The 


specific results of requirements analysis are the following [Ref. 15]: 
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(1) a simplified model of the system’s environment. 

(2) a description of the goals of the system and its functionality. 

(3) identification of performance, implementation and resource constraints. 
In order to achieve these results, the initial problem must be formalized, unstated 
requirements discovered, and inconsistencies resolved. The general process of 


requirements analysis and its results are illustrated below: 


ENVIRONMENTAL MODEL 


INITIAL PROBLEM 


STATEMENT REQUIREMENTS 
ANALYSIS 





Figure 13. Derivation of Requirements [Ref. 15] 


In the case of the Fuel Automated Subsystem, the developmental plan for the 
parent ICS3 system immediately limits the systems scope. Phase I of the [CS3 
developmental plan specifically calls for the development of initial operational capability 
at the retail level. This requirement of establishing operational capability at the retail 
level serves as the initial informal problem statement for the Fuel Automated Subsystem. 
Since retail petroleum operations have not been automated and the informal problem 


40 


statement is vague, the major task is to establish a precise, testable, and feasible set of 
requirements. Accordingly, to determine the specific requirements for the Fuel 
Automated Subsystem a full analysis of the problem domain, retail petroleum operations, 
is required. 

To fully analyze retail petroleum operations, a top down approach was applied. 
Through a review of applicable Army petroleum field manuals, technical manuals, and 
regulations, retail petroleum operations can be generally classified into three areas. 
These general areas of retail petroleum operations are as follows: 

e Personnel: This area covers the personnel assigned to conduct retail 
petroleum operations. Examples of specific personnel functions include 
determining personnel status and manpower utilization. 

e Equipment: This area covers the physical equipment required to perform 
petroleum operations. Examples of specific equipment functions include the 
following: maintaining accountability of equipment on-hand, ordering 
shortages, tracking maintenance and service schedules, and tracking licensing 
status. 

e Operational: This area covers the core fuel processes of receiving, storing, 
issuing, as well as conducting quality surveillance. 

A review of the general classification areas and functionality listed above against 
the designated modules of ICS3 reveals that the Personnel and Maintenance Modules of 
ICS3 fully address the areas of personnel and equipment. Currently, the STAMIS of 
SIDPERS and SAMS capture the personnel and maintenance functionality and will be 


incorporated into their respective ICS3 modules. Through interfaces within ICS3, the 
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retail petroleum user will be able to obtain required personnel and equipment 
information. However, the operational area functionality is not supported in any current 
STAMIS or ICS3 module and hence becomes the focal point for the development of the 


Fuel Automated Subsystem contained within the Supply Support Module. 
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Figure 14. ICS3 Modules and Retail Petroleum Processes 


A further in-depth analysis of the core petroleum processes of receiving, storing, 
issuing, and quality surveillance yields a set of further supporting functions and activities. 
A summary of the respective supporting retail petroleum activities and functions are 
listed below: 


QUALITY 
RECEIVE STORE ISSUE SURVEILLANCE 


FUNCTIONS FUNCTIONS FUNCTIONS FUNCTIONS 


Schedule delivery |} Determine ullage | Schedule issues 
Meter and lab 
Inspect equipment | instrumentation 


calibration 


Inspect receiving Account for 
equipment inventory 
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Schedule 
sampling and 
testing 


Load vehicle, 
Inspect transporter Sample fuel railcar, or aircraft 


Gage & sample | Fuel circulation & . Relay lab results 
ess Account for issues 
fuel consolidation to customers 


Unload vehicle, | Inspect facilities / Process Inspect fuel 
ship or tank car | storage containers requisitions transporter 
Receive from Conduct filter 


Test filter 
separator 


assault hoseline or separator Determine ullage 
pipeline maintenance 


Dispose of 
contaminated / 
interface fuel 


Conduct quality 
assurance 


Conduct quality Provide fuel 
assurance disposition 


Account for 
received fuel / 
inventory 


Conduct financial | Conduct financial 
accounting accounting 


Figure 15. Retail Petroleum Functions 


Conduct quality | Conduct financial 
assurance accounting 





A goal within the requirements analysis process is to determine an automation 
boundary; which functions will be solved by the initial version of the proposed system, 
which ones will be included in later versions of the system, and which ones will remain 
outside the proposed system. In the case of the functions of receive, store, issue and 
quality surveillance listed above, most are physical in nature and require a soldier to 
perform them. These physical tasks do not lend themselves well to automation as part of 
the initial version of the Fuel Automated Subsystem. However, inherent in all of the 
functions is the requirement for petroleum management that becomes the ultimate focus 
for the initial developmental version of the Fuel Automated Subsystem. 

1. System Environment 

The environmental model serves as the initial basis for communication and 


agreement between the customer and the developer. The environmental model 
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specifically defines the concepts and relationships needed for describing the world in 
which the proposed system will operate. These concepts consist of identifying the 
individual objects, object types, attributes of objects, and the relationships between 
objects. [Ref. 15] 

Petroleum management involves maintaining accurate accounts and executing 
appropriate quality control procedures for all receipts, issues and stocks on hand. The 
current manual fuel management procedures described in Chapter 2, E and illustrated in 
Figure 8 can be used to describe an informal view of the system to be 
developed/automated as the Fuel Automated Subsystem. A formal model of a system can 
also be constructed by specifying a finite number of explicit definitions for types, 
attributes, relationships, and laws to help develop precise descriptions of complex 
problems. The immediate benefit of the formal environment definition: is that it 
standardizes the vocabulary of the system and allows for computer aided checking and 
analysis. The formal environment model for the Fuel Automated Subsystem expressed in 
Spec, a formal specification language, is located in Appendix B. Spec is a formal 
specification language based on logic that is detailed in Software Engineering with 
Abstractions by Berzins and Luqi [Ref. 15]. 

2. System Goals 

The requirements for the Fuel Automated Subsystem are further formalized by 
determining the goals of the system and the functionality it must perform. With the 
current petroleum management procedures and environmental model as a base line, a 


goal hierarchy was developed to guide the design and implementation of the prototype 
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for the Fuel Automated Subsystem. The high-level goals were derived from the initial 
problem statement and are as follows: 

Gl: The purpose of the system is to assist the petroleum specialist in maintaining 
accurate accountability of the receipt, storage and issue of petroleum 
products. 

Gl.1: The system must allow the petroleum specialist to manually input 
receipt and issue documentation (DD Form 1348-1 from supply 
sources). 

G1.2: The system must allow the petroleum specialist to view the 
current physical quantity of each petroleum product being stored. 

G1.3: The system must maintain a daily database of all input petroleum 
receipts and issues. 

G1.4: The system must maintain a monthly database of the total daily 
petroleum receipts and issues. 

G1.5: The system must allow the petroleum specialist to cancel an 
incorrectly input receipt or issue. 

G2: The system must provide a means for the accountable officer to isure 
proper petroleum product accountability. 

G2.1: The system must allow the accountable officer to view the current 
physical quantity of each petroleum product being stored. 

G2.2: The system must provide a monthly accountability report. 

Each of the top-level goals expresses the overall general objectives of the Fuel 


Automated Subsystem. Supporting second-level goals specify in greater detail how the 
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system is to accomplish the respective top-level goal. The complete hierarchical goal 
structure is located in Appendix C, and is structured with high level goals that have been 
refined into a set of supporting lower level goals. These refined sub-goals express a level 
of abstraction close to the proposed system. 

3. System Constraints 

Implementation, performance and resource constraints are typically examined as 

part of requirement analysis [Ref. 15]. The purpose of developing the Fuel Automated 
Subsystem prototype is to illustrate its viability as part of ICS3. As a result, the actual 
constraints on system development are very limited. However, the following general 
constraints by type were applied in the development of the Fuel Automated Subsystem to 
reflect the current Army operational environment: 

e Implementation: 

(1) The current petroleum documentation requirements and parameters defined in 
Army Regulation 710-2 can not be modified during implementation of the 
system. 

(2) The system must be modular in design to capture the current documentation 
features. Daily and monthly receipt/issue databases must be incorporated as 
an audit trail as well as a means for future functionality such as petroleum 
trend analysis/forecasting. 

(3) The user interface to the system must incorporate a format and structure that 1s 
easy to learn, efficient, and easy to remember. 

(4) The use of CAPS as the prototyping tool for the development of the Fuel 


Automated Subsystem imposes certain developmental constraints. 
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Specifically, CAPS imposes an implementation constraint that the prototype 
system be developed in Ada, the programming language generated by CAPS. 

e Performance: 

(1) The responses of the Fuel Automated Subsystem must be fast enough as not to 
hinder fuel receipt and issue operations. 

(2) The system must maintain 100% accuracy of both the physical and “book” 
quantity of fuel stored. 

e Resource: 

(1) The budget for final vendor implementation of the Fuel Automated Subsystem 
will be limited. The system must be developed for full use with currently 
fielded petroleum and personnel authorizations. No new equipment will be 
developed or personnel authorized to support this system. 

(2) The system prototype must be fully developed by 1999 to comply with the 
ICS3 phased developmental plan. 

4. Model Summary 

A context summary provides a general overview of the proposed system. 

Specifically, the context summary lists the proposed system and shows the user classes 
and the types of objects the system controls [Ref. 15]. The context summary for the Fuel 


Automated Subsystem using the Spec language is as follows: 
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Fuel Automated Subsystem 


Used_by : petroleum_specialist, accountable_officer 


Controls : individual_fuel_receipts, individual_fuel_issues, 


consolidated_daily log of_receipts/issues, 
monthly log of_all_ daily _receipts/issues, 


monthly accountability calculations 





Figure 16. Fuel Automated Subsystem Context Summary 


Additionally, the context summary can be illustrated in graphical form. The 
graphical context summary serves as a valuable tool for expressing the proposed system 
to individuals unfamiliar with the system’s scope. The graphical context summary for the 


Fuel Automated Subsystem is as follows: 


Petroleum Specialist 
Individual Fuel Receipts 


Used by 
Individual Fuel Issues 


Petroleum Specialist Interface 


Consolidated Daily Log of - 
Fuel Automated Subsystem Receipts and Issues 


Accountable Officer Interface Monthly Log of alll Daily 


Receipt and Issue Totals 


Used by 
Monthly Accountability 
Calculator 


Acconntable Officer 





Figure 17. Fuel Automation Subsystem Context Diagram 
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C. PROTOTYPE DESIGN 

In the prototyping cycle, a prototype system is designed from the result of 
requirements analysis. Inherent in the design of a prototype is the determination of both 
the functional specification and architectural design of the system. The functional 
specification describes the external interfaces along with the concepts needed to use the 
proposed system, while the architectural design describes both the internal and external 
interfaces along with the concepts needed to build the proposed system [Ref. 15]. The 
main goal of sii design activity is to progressively decompose the proposed 
system into a smaller set of independent modules [Ref. 15]. Large systems must be 
decomposed into modules that enable a team of developers to work on different parts of 
the system concurrently. Through concurrent development, each team can conduct 
independent analysis and design of individual modules while developing an accurate 
estimation of costs and schedules. The modules must be decomposed through many 
levels of abstraction until the sub-modules either match existing reusable software 
components or are simple enough to be directly implemented. The important goals of the 
decomposition are feasibility and ease of implementation. The specific results of 
architectural design are the following [Ref. 15]: 

(1) Modules of the decomposed system should be understandable in isolation. 

(2) All interactions between modules should be explicitly defined. 

(3) Each module should be small and simple. 

1. Modules 

In accordance with the activity of architectural design, this section analyzes the 


particular requirements of the individual modules of the Fuel Automated Subsystem. A 
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brief description of the attributes of each module identified in the Army petroleum 
management/accountability process is included. The listed modules only represent the 
critical modules required for development of the prototype system. Additional modules 
will be required in later system development to enhance the overall systems capability. 
e Bulk Receipt Graphical User Interface: 
The bulk receipt graphical user interface allows a petroleum specialist to 
manually input parameters extracted from DD Form 1348-1 during the receipt of 
bulk petroleum. The petroleum specialist enters the type of fuel received, 
quantity in gallons, and the document number of the receipt as required by Army 
Regulation 710-2. 
e Other Receipt Graphical User Interface: 
The other receipt graphical user interface captures all other possible petroleum 
receipt scenarios (i.e. vehicle/aircraft defueling, etc.). The graphical user 
interface allows a petroleum specialist to manually enter the type of fuel received, 
quantity in gallons, an identification number from the source, and the source unit 
as required by Army Regulation 710-2. 
e Bulk Issue Graphical User Interface: 
The bulk issue graphical user interface allows a petroleum specialist to manually 
input parameters extracted from DA Form 2765-1 during the issue of bulk 
petroleum. The petroleum specialist enters the type of fuel issued, quantity in 
gallons, the document number of the issue, the receiving unit, and the name/rank 


of the receiver as required by Army Regulation 710-2. 
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e Other Issue Graphical UserInterface: 


The other issue graphical user interface allows a petroleum specialist to manually 
input parameters required by Army Regulation 710-2 for all other fuel issues 
other than bulk issues. These other issues include fuel issues made directly into, 
or specifically identifiable to, a consuming end item. An example of this type of 
issue is to a vehicle or an M2 burner unit. The petroleum specialist enters the 
type of fuel issued, quantity in gallons, the receiving vehicle bumper 
number/equipment name, the receiving unit, and the name/rank of the receiver. 

e Daily Receipt and Issue Consolidator: 

The daily receipt and issue consolidator serves as a the processor of all user input 
receipts and issues for diesel, mogas and jet fuel types. The receipt and issue 
consolidator stores all receipts and issues in a database as a historical audit trail. 
The receipt and issue consolidator also maintains a daily totalizer of all receipts 
and issues per fuel type. 

e Diesel Storage Tank: 

The diesel storage tank module emulates the physical quantity of diesel fuel on- 
hand and available for issue. Physical storage quantity is measured in gallons. 

e Jet Storage Tank: 

The jet storage tank module emulates the physical quantity of jet fuel on-hand and 
available for issue. Physical storage quantity is measured in gallons. 

e Mogas Storage Tank: 

The mogas storage tank module emulates the physical quantity of unleaded fuel 


on-hand and available for issue. Physical storage quantity is measured in gallons. 
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e Monthly Receipt and Issue Consolidator: 


The monthly receipt and issue consolidator serves as a processor of the daily total 

receipts and issues for diesel, mogas, and jet fuel types. The monthly receipt and 

issue consolidator stores the daily total receipts and issues per fuel type in a 

database as a historical audit trail. The receipt and issue consolidator also 

maintains a monthly totalizer of all receipts and issues per fuel type. 

e Monthly Accountability Report Generator: 

The monthly accountability report generator utilizes the physical quantity of fuel 

stored on the first day of the month, the monthly receipts and issues, and the 

physical quantity of fuel stored on the last day of the month to calculate the 

monthly gain/loss and allowable gain/loss. If actual loss exceeds the allowable 

loss, the accountability report generator signals the accountable officer. 

e Accountable Officer Graphical User Interface: 

The accountable officer user interface allows the accountable officer to monitor 

the current quantity of fuels on hand and the monthly accountability report. 

2. Basic Model 

Based upon the identified modules, a basic architectural model of the Fuel 
Automated Subsystem was constructed. The systems architecture for daily fuel’ 


accountability/management functionality is illustrated as follows: 
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Figure 18. Basic Model Design for Daily Fuel Accountability 


The systems architecture for monthly fuel accountability/management 


illustrated as follows: 


Be) 


iS 


DAILY IET SUL. TOTAL 


DAILY JT RECHOYT TOTAL 


DALLY MOGAN IMU TOTAL 


DAILY MOOAS KECLIVT TUTAL 


MONTICLY JET ISU TOTAL 
MONTHLY JEP RECHT TOTAL 


MONTIIL Y MUGAS IQUK TOTAL 


DGAKE QUANTITY ON HAND 


MONTHLY 
OQAINAAGS 


JET QUANTITY ON HAND 
Gun 
Hoe : 
MOGAN QUANTITY ON HAND ood “a TAMA: 


DIUREL QUANTITY ON HAND 





Figure 19. Basic Model Design for Monthly Fuel Accountability 


From these initial models, the Fuel Automated Subsystem software architecture 
was constructed using CAPS. 
D. CAPS PROTOTYPE 

The basic model developed in the previous section identified the Fuel Automated 
Subsystem’s high level functional operators, their interaction, and corresponding data 
flow. Using the basic model as a guide, the system architecture for the Fuel Automated 
Subsystem prototype was developed using CAPS. 

1. Graphical Editor 

Within the CAPS graphical editor, an initial high-level system architecture for the 
Fuel Automated Subsystem was developed. In the graphical editor, round bubbles 
represent proposed software modules, rectangular boxes indicate external systems 


interacting with the proposed software, and connecting streams represent interactions 
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between internal and/or external modules. The high-level architecture was further 


decomposed to reach atomic level operators that demonstrated specific functionality 


which could easily be implemented. The complete high-level system architecture and 


subsequent operator decompositions for the Fuel Automated Subsystem are included in 


Appendix D. The following high-level components were used in the CAPS graphical 


editor to model the Fuel Automated Subsystem. Each component’s role and properties 


are briefly described below. 


gui_bulk_receipt 


This is a non-time critical operator that represents the GUI for bulk receipt 
parameter input. The GUI provides a means of manual input of fuel type, 
quantity and document number. Accordingly, the operator produces output 
streams of bulk_rcpt_fuel type, bulk _rcpt_qty, and bulk_rcpt_doc_number. 
The bulk _rcpt_fuel_type stream is an integer type, corresponding to a radio 
button selection. The bulk_rcpt_qty stream is an integer type since all fuel 
receipt quantities are measured in whole gallons. The bulk _rcpt_doc_number 
stream is a string type to allow for alphanumeric input. 


gui other_receipt 


This is a non-time critical operator that represents the GUI for all other fuel 
receipt input. The GUI provides a means of manual input of fuel type, 
quantity, a source identification number, and the sources unit. Accordingly, 
the operator produces output streams of oth rcpt fuel type, oth rcpt qty, 
oth rcpt source, and oth rcpt source unit. The oth rcpt fuel type stream is 
an integer type, corresponding to a radio button selection. The oth_rcpt_qty 
stream is also an integer type. The oth _rcpt_source and oth rcpt_source_unit 
streams are string types to allow for alphanumeric input. 


sui bulk_issue 


This is a non-time critical operator that represents the GUI for bulk issue 
parameter input. The GUI provides a means of manual input of fuel type, 
quantity, document number, receiving unit, and the name of the receiver. 
Accordingly, the operator produces output streams of bulk iss fuel type, 
bulk iss qty, bulk iss doc num, bulk rcv_unit, and bulk rcv name. The 
bulk iss fuel type stream is an integer type, corresponding to a radio button 
selection. The bulk_iss qty is also an integer type since all issues are 
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measured in whole gallons. The bulk iss doc number, bulk _rcv_ unit, and 
bulk _rcv_name are string types to allow for alphanumeric input. 


gui other_issue 


This is a non-time critical operator that represents the GUI for all other fuel 
issue parameter input. The GUI provides a means of manual input of fuel 
type, quantity, identification number/nomenclature of the receiving piece of 
equipment, owning unit, and the name of the receiver. Accordingly, the 
operator produces output streams of eq iss fuel type, eq iss qty, eq iss id, 
eq_iss unit, and eq iss name. The eq iss fuel type stream is an integer 
type, corresponding to a radio button selection. The eq iss qty is also an 
integer type. The eq_iss_id, eq_iss_unit and eq_iss_name streams are string 
types that allow for alphanumeric input. 


daily_consolidator 


This is a composite operator that processes and stores all daily fuel receipt and 
issue transactions. The daily consolidator receives all of the streams 
generated from the four receipt and issue GUIs as input. Within the daily 
consolidator, there are two similar processing paths that ultimately converge 
at the daily reporter operator. The first path is for receipts, and begins with 
the bulk rcpt processor, and oth_rept_processor. The other path is for issues, 
and begins with the bulk_iss processor, and oth_iss_ processor. Each of these 
processors receives the fuel type and quantity streams from their 
corresponding GUI as input. With the fuel type and quantity data present, the 
processor produces an enable signal that triggers either the receipt or issue 
processor depending on the type of transaction. The receipt or issue processor 
determines the fuel type and produces a stream to the respective storage tank 
to update the storage volume and a stream to the respective fuel type totalizer. 
The receipt or issue totalizers receive the new quantity and add the value to a 
corresponding state stream that holds the daily total. The state stream serves 
as input to the daily reporter, a periodic operator that executes every hour, 
with a maximum execution time and finish within time of 750 msec. The 
normal period for the daily reporter would be 24 hours, but was 
proportionately reduced to one hour to demonstrate the prototype. The 
daily reporter produces a stream capturing each fuel types’ daily total receipts 
and issues, and also reinitializes all of the totalizers. Also within the 
daily consolidator is a relational database composed of four tables that 
capture all of the streams produced from the four GUIs as a historical audit 
trail. 


monthly_consolidator 


This is a composite operator that tallies and stores all daily receipts and issues. 
The monthly consolidator receives all of the daily fuel type receipt and issue 
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totals produced by the daily reporter. Within the monthly consolidator are 
six monthly totalizers for the receipt or issue per fuel type. Each monthly 
totalizer receives a new daily total quantity and adds the value to a 
corresponding state stream that holds the monthly total. The state streams 
serve as input to the monthly reporter, a periodic operator that executes every 
30 hours, with a maximum execution time and finish within time of 750 msec. 
The normal period for the monthly reporter would be 720 hours 
(approximately one month), but was proportionately reduced to 30 hours to 
demonstrate the prototype. The monthy_reporter produces a stream capturing 
each fuel types’ monthly total receipts and issues, and also reinitializes all of 
the monthly totalizers. Also within the monthly _consolidator is a relational 
database composed of two tables that capture all of the daily receipt and issue 
totals per fuel type as a historical audit trail. 


accountability op 


This 1s a composite operator that calculates monthly fuel accountability. 
Within the accountability op are three accountability calculators, one per fuel 
type. Each accountability calculator receives the respective total monthly 
receipts, total monthly issues, the current fuel quantity available in storage, 
and the monthly opening inventory as inputs. From these streams, the 
accountability calculator determines the monthly gain/loss, allowable 
gain/loss, and compares the two values. Based upon the comparison, the 
accountability calculator produces a boolean tolerance output stream. 


gui_acc_officer 


This is a non-time critical operator that represents the GUI for displaying 
monthly accountability results to the accountable officer. The GUI receives 
the boolean streams tolerance jet, tolerance df, and _ tolerance_mg 
representing whether the monthly accountability tolerance per fuel type has 
been met. 


gui_fuel_on_hand 


This is a non-time critical operator that represents the GUI for displaying the 
current amounts of diesel, mogas, and jet fuel on-hand and available for issue. 
The operator receives the diesel qty available, mogas qty available, and 
jet_qty_available streams that represent the gallon quantity of each fuel in 
storage as input. A gaging operator within each respective fuel tank external 
operator produces these streams. 


diesel tank 


This 1s an external composite operator representing the stored quantity of 
diesel fuel. The composite operator has input streams, diesel rcpt qty and 
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diesel iss qty, that represent integer quantities of diesel fuel which have been 
received or issued. Within this composite operator are the external atomic 
operators of diesel addition and diesel subtraction. The diesel addition 
operator adds the diesel _rcpt_qty stream value to the diesel volume state 
stream value to simulate an increase in diesel fuel storage volume due to a 
receipt. The diesel subtraction operator subtracts the diesel _iss qty stream 
value from the diesel volume state stream value to simulate a decrease in 
diesel fuel storage volume. Both the addition and subtraction operators 
produce an output integer state stream, df_qty_on_ hand. The diesel gage 
operator receives the df_qty_on_hand stream and simulates the physical 
gaging of the diesel storage tanks to determine the quantity available for issue. 
Accordingly, the diesel gage operator outputs the integer stream 
diesel_qty available. 


mogas tank 


This is an external composite operator representing the stored quantity of 
mogas. The composite operator has input streams, mogas rcpt qty and 
mogas iss qty, that represent integer quantities of mogas which have been 
received or issued. Within this composite operator are the external atomic 
operators of mogas addition and mogas subtraction. The mogas_ addition 
operator adds the mogas rcpt qty stream value to the mogas volume state 
stream value to simulate an increase in mogas fuel storage volume due to a 
receipt. The mogas subtraction operator subtracts the mogas iss qty stream 
value from the mogas volume state stream value to simulate a decrease in 
mogas storage volume. Both the addition and subtraction operators produce 
an output integer state stream, mg qty on hand. The mogas gage operator 
receives the mg qty on_hand stream and simulates the physical gaging of the 
mogas storage tanks to determine the quantity available for issue. 
Accordingly, the mogas gage operator outputs the integer stream 
mogas qty available. 


jet_tank 


This is an external composite operator representing the stored quantity of jet 
fuel. The composite operator has input streams, jet_rcpt_qty and jet_iss_ qty, 
that represent integer quantities of jet fuel which have been received or issued. 
Within this composite operator are the external atomic operators of 
jet addition and jet subtraction. The jet addition operator adds the 
jet_rept_qty stream value to the jet_volume state stream value to simulate an 
increase in jet fuel storage volume due to a receipt. The jet_subtraction 
Operator subtracts the jet iss qty stream value from the jet_volume state 
stream value to simulate a decrease in jet fuel storage volume. Both the 
addition and subtraction operators produce an output integer state stream, 
jet_qty_on_hand. The jet gage operator receives the jet_qty_on_hand stream 
and simulates the physical gaging of the jet storage tanks to determine the 
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quantity available for issue. Accordingly, the jet_gage operator outputs the 
integer stream jet_qty available. 


Further in-depth atomic operator descriptions can be found in the prototype description 
language code included in Appendix E. 

2. Prototyping Description Language 

From the completed graphical representation of the Fuel Automated Subsystem, 
CAPS automatically generated a prototype description language (PSDL) prototype. The 
PSDL prototype is composed of the set of operators identified in the graphical editor’s 
system graphs. Every PSDL operator is unambiguously defined through a specification 
and implementation section [Ref. 11]. The specification section defines the operators 
interface and provides an informal description of the operator’s behavior [Ref. 11]. The 
implementation section contains either an architectural description that defines the 
decomposition of composite operators or code interface descriptions for atomic operators 
(Ref. 11]. The Fuel Automated Subsystem’s complete PSDL code is included in 
Appendix E. 

3. Translating and Scheduling 

The PSDL program serves as the basis for generating compilable and executable 
prototype code. The CAPS translator successfully transformed the Fuel Automated 
Subsystem PSDL program in Appendix E into Ada code that implemented all supervisory 
aspects of the prototype. Specifically, the CAPS translator generated the CAPS support 
packages and the main prototype procedure that implemented the data streams, execution 
guards, output guards, operation triggers and timers [Ref. 16]. The support package and 
main procedure ultimately became part of the CAPS generated supervisor module 


fuel subsystem.a. 


SY, 


Next, the CAPS scheduler was successfully evoked to create the remaining 
portions, the static and dynamic schedules, of the fuel_subsystem.a module. The CAPS 
scheduler specifically used the timing information contained within the PSDL program to 
determine schedule feasibility, and to create the respective code to implement the 
schedule. Using the earliest deadline scheduling algorithm, the CAPS scheduler 
determined a feasible schedule for the Fuel Automated Subsystem. CAPS implemented 
time critical operators in the static schedule, while non-time critical operators were 
implemented in the dynamic schedule. Both the static and dynamic schedules created by 
the CAPS scheduler completed the fuel _subsystem.a supervisor module. The 
fuel _subsystem.a supervisor module for the Fuel Automated Subsystem is included in 
Appendix F. 

4. Implementation 

The CAPS translation and scheduling process constructed Ada template 
files/packages for all user-defined types and atomic operators. From the template 
files/packages, Ada implemetation files were written for all user-defined types and 
atomic operators. The only user-defined data type used in the Fuel Automated 
Subsystem prototype was text_string. The type text_string was declared to allow the 
system user to input alphanumeric parameters such as unit name/numbers, document 
numbers, etc., from the graphical user interfaces. The text_string type was declared as a 
subtype of type string with a length of 100 characters. 

Also from the template files, all atomic operators were implemented in Ada to 
simulate the expected behavior of the operator. With the user-defined text string 


declared, all atomic operators implemented, and the fuel_subsystem.a supervisor module, 
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the CAPS compiler (Sun/Ada) succeeded in generating executable code for the Fuel 
Automated Subsystem with no errors or warnings. To test the system’s simple 
functionality, the periods of the daily reporter and monthly reporter were reduced, and 
all atomic operators were enhanced to print operator specific messages to the prototype 
console window. The complete Ada code for the fuel_subsystem.a supervisor module, 
the atomic operators without the test message stream output, and the text_string 
declaration is in Appendix F. 

To further augment the Fuel Automated Subsystem prototype, proposed GUIs for 
bulk receipts, other receipts, bulk issues, other issues, fuel on hand, and monthly 
accountability were constructed using TAE+, a graphical user interface generator. While 
simple in construct, the GUIs present a tangible image of the system to the user. The 
GUIs incorporate the required CAPS input parameters for fuel receipts and issues. Also, 
the GUIs display the available quantity of fuel, and display whether monthly 
accountability tolerances are being met in accordance with the CAPS output parameters. 
The proposed GUIs for the Fuel Automated Subsystem prototype are included in 
Appendix G. After customer review, the proposed GUIs may be further modified and/or 


integrated into the CAPS code. 
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V. CONCLUSIONS AND RECOMMENDATIONS 


A. SIGNIFICANCE OF THE PROTOTYPE 

The Fuel Automated Subsystem represents the initial step in the automation of the 
combat service support discipline of “fuel” as mandated in the February 1996, TRADOC 
Pamphlet 525-5, Force XXI Operations. As a result of a complete analysis of current 
Army __ petroleum operations, _ the task of automating petroleum 
accountability/management was identified as the core process in any fuel automation 
system. Within the constraints of the ICS3 developmental process, the scope of 
automating petroleum accountability/management was further restricted to retail 
Operations. With the target domain of retail petroleum accountability/management 
identified, the requirements analysis process produced a goal hierarchy and 
environmental model for the proposed system. 

From the developed goal hierarchy and environmenta! model, a prototype of the 
Fuel Automated Subsystem was successfully developed using CAPS to illustrate the 
systems’ viability. The CAPS approach for implementing the Fuel Automation 
Subsystem prototype provided an integrated set of tools that permitted the detailed 
specification, design, and implementation of the prototype system in a single 
developmental environment. The CAPS developmental environment also provided the 
ability to simultaneously make prototype design changes to the PSDL specification and 
the Ada prototype source code. Through the use of the graphical user interface generator, 
TAE+, proposed GUIs were developed to present a tangible image of the system to the 


user. 
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The initial Fuel Automated Subsystem prototype developed in this thesis can now 


be reviewed and verified by the customer, the Combat Developments Branch at 


CASCOM. Based upon the feedback from the Combat Development Branch, the 


prototype can be modified accordingly to reflect any new customer requirements. This 


iterative prototyping process can continue until the customer is ultimately satisfied with 


the system. 


B. RECOMMENDED FUTURE WORK 


The work completed on the CAPS Fuel Automated Subsystem leaves open the 


possibility of future system improvements and enhancements. Specifically, the following 


prioritized list addresses potential areas of future work and research: 


The TAE+ graphical user interfaces contained in Appendix G need to be 
validated and integrated into the CAPS prototype Ada code in order to fully 
evaluate the Fuel Automated Subsystem’s performance and suitability. 
Exception guards within the various operators should be added to enhance the 
prototype’s fault tolerance. 

The daily and monthly relational database operators in the prototype have not 
been fully implemented. Currently, the operators take the input stream 
parameters and assign them to variables in order to simulate storage in a 
database. A commercially available database should be integrated into the 
prototype to more closely simulate the desired system functionality. 

The current Fuel Automated Subsystem prototype does not address hardware 
issues such as the system’s target hardware platform. Once a target platform 


is identified, the CPU ratio within CAPS should be modified to reflect the 
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target platform and the prototype’s performance can be re-tested and 
reevaluated. 

The current Fuel Automated Subsystem prototype has not incorporated any 
interaction with other ICS3 modules. Once other ICS3 module interfaces are 
clearly defined, the Fuel Automated Subsystem must be integrated. For 
example, the Fuel Automated Subsystem must be inter-linked with the ICS3 
financial module to insure that the cost of fuel issues are deducted from unit 
budgets. 

While the Fuel Automated Subsystem addresses the critical issues revolving 
around petroleum management/accountability, the prototype leaves room for 
other additional applications and extensions. For example, additional 
functionality such as the ability to perform fuel consumption trend analysis 


could be included. 
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Figure 2. DA Form 2765-1: Request for Issue or Turn-in 
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APPENDIX B 


Software Engineering with Abstractions, Appendix C by Lugqi and Berzins 
provides definitions of predefined Spec concepts. Some of these predefined concepts are 
inherited and imported to develop an environmental model of the Fuel Automated 


Subsystem. The Fuel Automated Subsystem environmental model is as follows: 


DEFINITION fuel automation_subsystem_environment 
INHERIT system -- defines software system, proposed, controls 
INHERIT user -- defines User_class, uses 
INHERIT business -- defines product 
INHERIT person -- defines person 
INHERIT cause -- defines Needed_for 
IMPORT subtype FROM type 


CONCEPT fuel_ automated subsystem : software_system 
WHERE proposed (fuel_automation_subsytem), 
-- Will construct a fuel automated subsystem 
Controls (fuel_ automation subsystem, petroleum_management) 
-- System will help Army personnel manage petroleum 


CONCEPT petroleum_specialist : User_class 
WHERE ALL (ps: petroleum_ specialist :: 
uses (ps, fuel _automated_subsystem)) 
Subtype (petroleum_ specialist, person) 
-- Petroleum specialists use the fuel automated subsystem 


ALL (£: fuel :: 
~SOME (ps: petroleum_specialist :: manages (ps, f))) 
-- For every fuel, there is a petroleum specialist that manages it 


-- Petroleum specialists are the only source of bulk and retail fuel 
-- issues and receipt documentation 


ALL (fr: DD_1348_1:: 
SOME (ps : petroleum_specialist :: receive_bulk (ps, fr))) 
-- For every bulk fuel receipt document, there 1s a petroleum 
-- specialist that received the bulk fuel 


al 


ALL (f1: DA_2765_1:: 
SOME (ps : petroleum_specialist :: issue bulk (ps, fi))) 
-- For every bulk fuel issue document, there is a petroleum 
-- specialist that issued the bulk fuel 


ALL (rr: retail_receipt_doc :: 
SOME (ps : petroleum_ specialist :: receive retail (ps, rr))) 
-- For every retail receipt document, there is a petroleum 
-- specialist that received the retail fuel 


ALL (11: retail_issue_doc :: 
SOME (ps : petroleum_ specialist :: issue_retail (ps, ri))) 
-- For every retail issue document, there is a petroleum specialist 
-- that issued the retail fuel 


CONCEPT issue_bulk (uc : User_class, ad : accountability document) 
VALUE (b : boolean) 
-- True if the user class issues bulk fuel in accordance with 
-- DA Pam 710-2-1 


CONCEPT receive_bulk (uc : User_class, ad : accountability document) 
VALUE (b: boolean) 
-- True if the user class receives bulk fuel in accordance with 
-- DA Pam 710-2-1 


CONCEPT issue_retail (uc : User_class, ad : accountability document) 
VALUE (b : boolean) 
-- True if the user class issues retail fuel in accordance with 
-- DA Pam 710-2-1 


CONCEPT receive_retail (uc : User class, ad : accountability document) 
VALUE (b: boolean) 
-- True if the user class receives retail fuel in accordance with 
-- DA Pam 710-2-1 


CONCEPT DD_ 1348 _ 1: type 
WHERE Subtype (DD_ 1348 _ 1, accountability document) 
ALL (rbf : to_receive_bulk_ fuel :: Needed_for (DD_1348_1, rbf) 
-- A DD Form 1348-1 is needed to receive bulk fuel 


CONCEPT to_receive_bulk_ fuel : type 
WHERE Subtype (to_receive_bulk fuel, activity) 
ALL (rbf : to receive bulk fuel :: Quantity (rbf) > 500) 
-- To receive fuel greater than 500 gallons 1s a bulk receipt 


i 


CONCEPT DA_2765_1 : type 
WHERE Subtype (DA_2765_1, accountability document) 
ALL (ibf: to_issue_bulk fuel :: Needed for (DA_2765_1,ibf) 
-- A DA Form 2765-1 is needed to issue bulk fuel 


CONCEPT to_issue_bulk_ fuel : type 
WHERE Subtype (to_issue_ bulk fuel, activity) 
ALL (ibf : to_issue_bulk_ fuel :: Quantity (ibf) > 500) 
-- To issue fuel greater than 500 gallons is a bulk issue 


CONCEPT retail_receipt_doc : type 
WHERE Subtype (retail_receipt_doc, accountability document) 
ALL (rrf : to_receive_ retail fuel :: 
Needed_for (retail_receipt_doc, rrf) 
-- Retail receipt documentation is needed to receive retail fuel 


CONCEPT to_receive_retail fuel : type 
WHERE Subtype (to_receive_ retail fuel, activity) 
ALL (rrf: to_receive_ retail fuel :: Quantity (rrf) < 500) 
-- To receive fuel less than or equal to 500 gallons is a retail 
-- receipt 


CONCEPT retail_issue_ doc : type 
WHERE Subtype ( retail_issue-doc, accountability document) 
ALL (irf : to_issue_retail fuel :: 
Needed_for (retail issue doc, irf) 
-- Retail issue documentation is needed to issue retail fuel 


CONCEPT to_issue_retail fuel : type 
WHERE Subtype (to_issue_retail_fuel, activity) 
ALL (irf : to_issue_retail fuel :: Quantity (irf) < 500) 
-- To issue fuel less than or equal to 500 gallons is a retail issue 


CONCEPT DA_3643 : type 
WHERE Subtype (DA_ 3643, accountability document) 
Captures all daily (DA_3643, DD_1348 1, DA_2765 1, 
retail issue, retail receipt ) 
-- Daily log and totalizer of all fuel receipts and issues 


CONCEPT DA_ 3644 : type 
WHERE Subtype (DA_ 3644, accountability document) 
Captures daily totals (DA 3644, DA 3643) 
-- Monthly log and totalizer of the total daily receipts and 
-- issues from DA 3643 
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END 


CONCEPT DA_ 4702 : type 
WHERE Subtype (DA_ 4702, accountability document) 
Calculates accounting from (DA_ 3644, opening inventory, 
physical inventory) 
-- Accountability calculator that uses the months opening fuel 
-- inventory, monthly total receipts / issues from the DA 3644, 
-- and closing physical inventory to determine if accountability 
-- 1s within specified tolerance and to adjust the following 
-- months opening inventory 


CONCEPT accountable_officer : User_class 
WHERE ALL (ao: accountable_officer :: 
uses(ao, fuel automated subsystem)) 

‘Subtype (accountable _ officer, person) 

Monitors (accountable_officer, fuel_automated_subsystem) 
-- Accountable officers use and monitor the system 

Audits (accountable_officer, DA_4702) 
-- Accountable officers audit the monthly DA Form 4702 


CONCEPT monitors (uc : User_class, s : system) 
VALUE (b : boolean) 
-- True if the instance of the user class can be created 


CONCEPT quantity (a : activity) 
VALUE (r: real) 
-- The amount of fuel issued or received 


CONCEPT accountability document : type 
-- Accounting documents used for supply transactions in accordance with 
-- DA Pam 710-2-1 


CONCEPT fuel : type 
WHERE Subtype (fuel, product) 
-- There are three types of fuel products 


CONCEPT diesel_ fuel : type 
WHERE Subtype (diesel_ fuel, fuel) 


CONCEPT jet_fuel : type 
WHERE Subtype (jet_ fuel, fuel) 


CONCEPT motor _fuel : type 
WHERE Subtype (motor_fuel, fuel) 
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The following diagram illustrates the critical concepts and relationships defined in 


the environmental model above. 


MONTTORS CONTROLS 


FUEL AUTOMATED SUBSYSTEM 


SUBTYPES ARE 


PETROLEUM SPECIALIST NLANAGES 


FOR EACH THERE IS 


OPENING INVENTORY 


CALCULATES 
ACCOUNTING FROM 


PHYSICAL INVENTORY 





Figure 1. Relational Diagram of Environmental Model 
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APPENDIX C 


The hierarchical goal structure for the Fuel Automated Subsystem is as follows: 


Gl: The purpose of the system is to assist the petroleum specialist in maintaining 
accurate accountability of the receipt, storage and issue of petroleum products. 


G1.1: The system must allow the petroleum specialist to manually input receipt 
and issue documentation into the system. 


G1.1.1: The system must allow for the input of bulk fuel receipt 
documentation (DD Form 1348-1 from supply source). 


G1.1.1.1: The system must allow for input of the following 
parameters: name/rank of soldier making the receipt, 
type of fuel received, quantity in gallons, document 
number. 


G1.1.2: The system must allow for the input of fuel receipts from other 
sources. 


G1.1.2.1: The system must allow for input of the following 
parameters: name/rank of the soldier making the receipt, 
type of fuel received, quantity in gallons, source: 
vehicle/equipment identification number, source unit. 


G1.1.3: The system must allow for the input of issue documentation for 
issues made into a transportation vehicle or storage tank that will 
subsequently be issued to a consuming end item of equipment 
(DA Form 2765-1). 


G1.1.3.1: The system must allow for input of the following 
parameters: name/rank of the soldier making the issue, 
type of fuel issued, quantity in gallons, document 
number, unit of the receiver, name/rank of receiver. 


G1.1.4: The system must allow for the input of issues made directly into 
or specifically identifiable to a consuming end item (i.e. vehicle). 
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G1.1.4.1: The system must allow for input of the following 
parameters: name/rank of the soldier making the issue, 
type of fuel issued, quantity in gallons, receiving vehicle 
bumper number, receiving vehicle’s unit, name/rank of 
receiver. 


G1.1.5: The system must allow for the input of issues made directly into 
an identifiable piece of equipment other than a vehicle. 


G1.1.5.1: The system must allow for input of the following 
parameters: name/rank of the soldier making the issue, 
type of fuel issued, quantity in gallons, name of 
receiving equipment, equipment’s unit, 
name/rank of receiver. 


G1.2: The system must allow the petroleum specialist to view the current 
physical quantity of each petroleum product being stored. 


G1.2.1: The system must receive as input, physical quantity reports in 
gallons from the storage tanks for each fuel type. 


G1.3: The system must maintain a daily database of all input petroleum receipts 
and issues. 


G1.3.1: The system must store all receipt and issue input fields in the 
database. 


G1.3.2: The system must generate a daily receipt and issue total based on 
the individual receipts and issues for each fuel type being stored. 


G1.4: The system must maintain a monthly database of the total daily petroleum 
receipts and issues. 


G1.4.1: The system must store the total daily receipt and issue totals per 
fuel type in the database. 


G1.4.2: The system must generate a monthly receipt and issue total based 
on the daily receipt and issue totals for each fuel type being 


stored. 


G1.5: The system must allow the petroleum specialist to cancel an incorrectly 
input receipt or issue. 


G2: The system must provide a means for the accountable officer to insure proper 
petroleum product accountability. 
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G2.1: The system must allow the accountable officer to view the current physical 
quantity of each petroleum product being stored. 


Geshe i: 


The system must receive as input, physical quantity reports in 
gallons from the storage tanks for each fuel type. 


G2.2: The system must provide a monthly accountability report. 


CORRS 


Ge 


G27: 


The system must calculate the maximum monthly allowable gain/ 
loss for each fuel type stored during the month. The monthly 
allowable gain/loss for jet fuel and mogas must be calculated as 
follows: 


monthly allowable gain/loss = (opening inventory 
+ total monthly receipts) x 0.01 


and for diesel fuel as follows: 


monthly allowable gain/loss = (opening inventory 
+ total monthly receipts) x 0.005 


The system will calculate the actual monthly gain/loss for each 
fuel type stored during the month. The monthly gain/loss must be 
calculated for each respective fuel as follows: 


monthly gain/loss = (opening inventory for the month 
+ total monthly receipts 
- total monthly issues) 
- physical closing inventory 


The system must identify when the monthly allowable gain/loss 
is exceeded. 
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Figure 1. Top Level Graph of the Fuel Automated Subsystem 
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Figure 2. Decomposed Daily Consolidator 
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Figure 3. Decomposed Monthly Consolidator 
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Figure 4. Decomposed Accountability Operator 
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Figure 5. Decomposed Diesel Fuel Tank 
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APPENDIX E 


TYPE text_string 
SPECIFICATION 
END 


IMPLEMENTATION ADA text. string 
END 


OPERATOR other_iss db table 504 
SPECIFICATION 
INPUT 
eq_iss_name: text_string, 
eq _iss_unit: text_string, 
eq iss id: text_string, 
eq _iss_ qty: integer, 
eq_ iss fuel_type: integer 
KEYWORDS table, database, equipment_issue 
DESCRIPTION {Table in a relational database to store the input parameters for all fuel issues to 
equipment. The table provides a historical audit trail of all equipment issues. Also 
provides a hook for future system enhancement such as data mining and statistical 
analysis applications. } 
END 


IMPLEMENTATION ADA other_iss_db_ table 504 
END 


OPERATOR other_rcpt_db_table_ 501 
SPECIFICATION 
INPUT 
oth_rcpt_source_unit: text_string, 
oth _rcpt_source_1id: text_string, 
oth_rcpt_qty: integer, 
oth_rcpt_fuel_type: integer 
KEYWORDS table, database, other_receipt 
DESCRIPTION {Table in a relational database to store the input parameters of all receipts other than 
bulk. The table provides a historical audit trail of all receipts other than bulk. Also 
provides a hook for future system enhancement such as data mining and statistical 
analysis applications. } 
END 


IMPLEMENTATION ADA other_rcpt_db_table_ 501 
END 


OPERATOR bulk_iss_db_table_498 
SPECIFICATION 
INPUT 
bulk_rcv_name: text_string, 
bulk_rcv_unit: text_string, 
bulk_iss_doc_num: text_string, 
bulk _iss_qty: integer, 
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bulk _iss_fuel_type: integer 
KEYWORDS table, database, bulk_issue 


DESCRIPTION {Table in a relational database to store the input parameters of a bulk fuel issue. The 
table provides a historical audit trail of all bulk fuel issues. Also provides a hook for 
future system enhancements such as data mining and statistical analysis applications. } 

END 


IMPLEMENTATION ADA bulk iss db table 498 
END 


OPERATOR bulk_rcpt_db_table_495 
SPECIFICATION 
INPUT 
bulk_rcpt_doc_number: text_string, 
bulk _rcpt_gqty: integer, 
bulk_rcpt_fuel_type: integer 
KEYWORDS table, database, bulk receipt 
DESCRIPTION {Table in a relational database to store the input parameters of a bulk fuel receipt. The 
table provides a historical audit trail of all bulk fuel receipts. Also provides a hook for 
future system enhancement such as data mining and statistical analysis applications. } 
END 


IMPLEMENTATION ADA bulk _rcpt_db table 495 
END 


OPERATOR daily_reporter_410 
SPECIFICATION 
INPUT 
mg iss total: integer, 
df iss total: integer, 
jet_iss_ total: integer, 
df _rcpt_total: integer, 
mg _ rcpt_total: integer, 
jet_rcpt_total: integer 
OUMEUT 
daily jet_iss total: integer, 
daily mg iss total: integer, 
daily df_iss_ total: integer, 
daily jet_rcpt_total: integer, 
daily _mg_rcpt_total: integer, 
daily df rcpt_total: integer, 
mg iss total: integer, 
df iss_total: integer, 
jet_iss_total: integer, 
jet_rcpt_total: integer, 
mg _rcpt_total: integer, 
df rcpt_total: integer 
MAXIMUM EXECUTION TIME 750 MS 
KEYWORDS daily, periodic_operator 
DESCRIPTION {Periodic operator that forwards the daily total receipts and issues per fuel type every | 
hour. Note: The normal period of the daily reporter is 24 hours. It has reduced to | 
hour for this prototype. } 
END 


IMPLEMENTATION ADA daily_reporter_410 
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END 


OPERATOR df_iss_totalizer_352 
SPECIFICATION 
INPUT 
i_df qty: integer, 
df iss total: integer 
OUTPUT 
df iss total: integer 
KEYWORDS counter, diesel_ fuel, issues 
DESCRIPTION {Counter of the daily quantity of diesel fuel issued. Also provides a hook for future 
system enhancement such as real time user views of the current daily total issues of 
diesel fuel on demand. } 
END 


IMPLEMENTATION ADA df iss totalizer 352 
END 


OPERATOR mg iss totalizer_349 
SPECIFICATION 
INPUT 
i mg qty: integer, 
mg_iss total: integer 
OUTPUT 
mg _ iss total: integer 
KEYWORDS counter, mogas, issues 
DESCRIPTION {Counter of the daily quantity of mogas issued. Also provides a hook for future system 
enhancement such as real time user views of the current daily total issues of mogas on 
demand. } 
END 


IMPLEMENTATION ADA mg iss totalizer_ 349 
END 


OPERATOR jet_iss_totalizer_346 
SPECIFICATION 
INPUT 
i_jet_qty: integer, 
jet_iss_total: integer 
OUTPUT 
jet_iss total: integer 
KEYWORDS counter, jet_fuel, issues 
DESCRIPTION {Counter of the daily quantity of jet fuel issued. Also provides a hook for future system 
enhancement such as real time user views of the current daily total issues of jet fuel on 
demand. } 
END 


IMPLEMENTATION ADA jet_iss_totalizer_346 
END 


OPERATOR jet_rcpt_totalizer_280 
SPECIFICATION 
INPUT 
r_jet_qty: integer, 
jet_rcpt_total: integer 
OUTPUT 
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jet_rcpt_total: integer 
KEYWORDS counter, jet_fuel, receipt 
DESCRIPTION {Counter of the daily quantity of jet fuel received. Also provides a hook for future 
system enhancement such as real time user views of the current daily total receipts of 
jet fuel on demand. } 
END 


IMPLEMENTATION ADA jet_rcpt_totalizer_280 
END 


OPERATOR mg rcpt_totalizer_ 277 
SPECIFICATION 
INPUT 
r_mg qty: integer, 
mg rcpt total: integer 
OUTPUT 
mg rcpt total: integer 
KEYWORDS counter, mogas, receipt 
DESCRIPTION {Counter of the daily quantity of mogas received. Also provides a hook for future 
system enhancement such as real time user views of the current daily total receipts of 
mogas on demand. } 
END 


IMPLEMENTATION ADA mg rept totalizer 277 
END 


OPERATOR df_rcpt_totalizer_274 
SPECIFICATION 
INPUT 
r_df qty: integer, 
df _rcpt_total: integer 
OUTPUT 
df rcpt_total: integer 
KEYWORDS counter, diesel_fuel, receipt 
DESCRIPTION {Counter of the daily quantity of diesel fuel received. Also provides a hook for future 
system enhancement such as real time user views of the current daily total receipts of 
diesel fuel on demand.} 
END 


IMPLEMENTATION ADA df_rcpt_totalizer_274 
END 


OPERATOR bulk _rcpt_processor_198 
SPECIFICATION 
INPUT 
bulk rcpt_fuel_type: integer, 
bulk_rcpt_qty: integer, 
oth rcpt enable: boolean 
OUTPUT 
bulk_rcpt_enable: boolean, 
oth rcpt enable: boolean 
KEYWORDS fuel_type, fuel_ quantity, processor 
DESCRIPTION {Serves as a preprocessor. Insures the bulk receipt input parameters of type of fuel and 
quantity arrive to be processed at the same time by using a by all triggering condition. 
Arrival of both parameters cause an enable parameter to be generated indicating that 
the bulk receipt parameters are present and ready to be processed by the receipt 


De 


processor. } 
END 


IMPLEMENTATION ADA bulk_rcpt_processor_198 
END 


OPERATOR oth_rcpt_processor_207 
SPECIFICATION 
INPUT 
oth rcpt_qty: integer, 
oth rcpt_fuel_type: integer, 
bulk_rcpt_enable: boolean 
OUTPUT 
oth rcpt enable: boolean, 
bulk_rcpt_enable: boolean 
KEYWORDS fuel_type, fuel_ quantity, preprocessor 
DESCRIPTION {Serves as a preprocessor. Insures the other receipt input parameters of type of fuel and 
quantity arrive to be processed at the same time using a by all triggering condition. 
Arrival of both parameters cause an enable parameter to be generated indicating that 
the other receipt parameters are present and ready to be processed by the receipt 
processor. } 
END 


IMPLEMENTATION ADA oth_rcpt_processor_207 
END 


OPERATOR rcpt_processor_210 
SPECIFICATION 

INPUT 
oth rcpt_qty: integer, 
oth rcpt_fuel_type: integer, 
bulk_rcpt_qty: integer, 
bulk _rcpt_fuel_type: integer, 
oth rcpt_enable: boolean, 
bulk_rcpt_ enable: boolean 

OUTPUT 
r_jet_qty: integer, 
r mg qty: integer, 
r_df_ qty: integer, 
jet_rcpt_qty: integer, 
mogas rcpt qty: integer, 
diesel _rcpt_qty: integer 

KEYWORDS receipts, bulk_receipts, other_receipts, receipt_processor 

DESCRIPTION {Processor of all bulk and other fuel receipts. Based upon an enable signal and the type 

of fuel, the processor passes the received quantity of fuel to the appropriate fuel 
storage tank and totalizer.} 
END 


IMPLEMENTATION ADA rcpt_processor_210 
END 


OPERATOR oth_iss_ processor 307 
SPECIFICATION 
INPUT 
eq_iss_qty: integer, 
eq_iss_fuel_type: integer, 
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bulk iss enable: boolean 
OUTPUT 
oth iss enable: boolean, 
bulk_iss_enable: boolean 
KEYWORDS fuel_type, fuel_ quantity, preprocessor 
DESCRIPTION {Serves as a preprocessor. Insures the equipment issue input parameters of fuel type and 
quantity arrive to be processed at the same time by using a by all triggering condition. 
Arrival of both parameters cause an enable parameter to be generated indicating that 
the equipment issue parameters are present and ready to be processed by the issue 
processor. } 
END 


IMPLEMENTATION ADA oth_iss_processor_307 
END 


OPERATOR bulk_iss_processor_310 
SPECIFICATION 
INPUT 
bulk_iss_qty: integer, 
bulk_iss fuel_type: integer, 
oth iss enable: boolean 
OUTPUT 
bulk _iss_ enable: boolean, 
oth iss enable: boolean 
KEYWORDS fuel_type, fuel_ quantity, preprocessor 
DESCRIPTION {Serves as a preprocessor. Insures the bulk issue parameters of fuel type and quantity 
arrive to be processed at the same time by using a by all triggering condition. Arrival 
of both parameters cause an enable parameter to be generated indicating that the bulk 
issue parameters are present and ready to be processed by the issue processor.} 
END 


IMPLEMENTATION ADA bulk_iss_processor_310 
END 


OPERATOR iss_processor_323 
SPECIFICATION 

INPUT 
bulk _iss_enable: boolean, 
oth iss enable: boolean, 
eq iss fuel_type: integer, 
eq _iss qty: integer, 
bulk_iss fuel_type: integer, 
bulk_iss_qty: integer 

OUTPUT 
i_ df qty: integer, 
i mg_ qty: integer, 
i_jet_qty: integer, 
diesel _iss_qty: integer, 
mogas iss _ qty: integer, 
jet_iss_qty: integer 

KEYWORDS issues, bulk_issues, equipment_issues, issue_ processor 

DESCRIPTION {Processor of all bulk and equipment fuel issues. Based upon an enable signal and the 

type of fuel, the processor passes the issued quantity of fuel to the appropriate fuel 
storage tank and totalizer.} 
END 
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IMPLEMENTATION ADA iss_processor_323 
END 


OPERATOR jet_gage 917 
SPECIFICATION 
INPUT 
jet_qty_on_hand: integer 
OUTPUT 
jet_qty_available: integer 
KEYWORDS storage, tank, jet_fuel, gage 
DESCRIPTION {Simulates gaging the jet fuel storage tank to determine the quantity of fuel on hand.} 
END 


IMPLEMENTATION ADA jet_gage 917 
END 


OPERATOR jet_subtraction 914 
SPECIFICATION 
INPUT 
jet_volume: integer, 
jet_iss qty: integer 
OUTPUT 
jet_qty_on_hand: integer, 
jet_volume: integer 
KEYWORDS storage, tank, jet_fuel, issue 
DESCRIPTION {Simulates the issue/subtraction of a quantity of jet fuel from the storage tank.} 
END 


IMPLEMENTATION ADA jet_subtraction_914 
END 


OPERATOR jet_addition_911 
SPECIFICATION 
INPUT 
jet_volume: integer, 
jet_rcpt_qty: integer 
OUTPUT 
jet_qty_on_hand: integer, 
jet_volume: integer 
KEYWORDS storage, tank, jet_fuel, receipt 
DESCRIPTION {Simulates the receipt/addition of a quantity of jet fuel to the storage tank. } 
END : 


IMPLEMENTATION ADA jet_addition_911 
END 


OPERATOR mogas _addition_888 
SPECIFICATION 

INPUT 
mogas rcpt qty: integer, 
mogas volume: integer 

OUTPUT 
mogas_ volume: integer, 
mg qty_on_hand: integer 

KEYWORDS storage, tank, mogas, receipt 

DESCRIPTION {Simulates the receipt/addition of a quantity of mogas to the storage tank.} 
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END 


IMPLEMENTATION ADA mogas_ addition 888 
END 


OPERATOR mogas subtraction 891 
SPECIFICATION 
INPUT 
mogas_iss_ qty: integer, 
mogas_ volume: integer 
OUTPUT 
mogas_ volume: integer, 
mg_qty_on_hand: integer 
KEYWORDS storage, tank, mogas, issue 
DESCRIPTION {Simulates the issue/subtraction of a quantity of mogas from the storage tank. } 
END 


IMPLEMENTATION ADA mogas_ subtraction 891 
END 


OPERATOR mogas_ gage 894 
SPECIFICATION 
INPUT 
mg_qty_on_hand: integer 
OUTPUT 
mogas qty_available: integer 
KEYWORDS storage, tank, mogas, gage 
DESCRIPTION {Simulates the gaging of the mogas storage tank to determine the quantity of fuel on 
hand. } 
END 


IMPLEMENTATION ADA mogas gage 894 
END 


OPERATOR gui_bulk_receipt_3 
SPECIFICATION 
OUTPUT 
bulk_rcpt_fuel_type: integer, 
bulk _rcpt_doc_number: text_string, 
buik_rcpt_qty: integer 
KEY WORDS bulk_receipt, user_input, dd_form_1348_ 1, gui 
DESCRIPTION {Allows a petroleum specialist to manually input parameters extracted from DD Form 
1348-1 during the receipt of bulk petroleum. The petroleum specialist enters the type 
of fuel received, quantity in gallons, and the document number as required by Army 
Regulation 710-2.} 
END 


IMPLEMENTATION ADA gui_bulk receipt 3 
END 


OPERATOR gui_other_receipt_6 
SPECIFICATION 
OUTPUT 
oth_rcpt_qty: integer, 
oth_rcpt_source_unit: text_string, 
oth rcpt fuel_type: integer, 
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oth _rcpt_source_id: text_string 
KEYWORDS gui, other_receipt, user_input 
DESCRIPTION {Interface capturing all other possible petroleum receipt scenarios i.e. vehicle/aircraft 
defueling, etc. The interface allows a petroleum specialist to manually enter the type 
of fuel received, quantity in gallons, an identification number from the source, and 
source unit as required by Army Regulation 710-2.} 
END 


IMPLEMENTATION ADA gui other_receipt 6 
END 


OPERATOR gui_bulk_issue_ 9 
SPECIFICATION 
OUTPUT 
bulk_rcv_unit: text_string, 
bulk_iss_doc_num: text_string, 
bulk _rcv_name: text_string, 
bulk_iss_qty: integer, 
bulk iss fuel_type: integer 
KEYWORDS gui, bulk_issue, da_form_2765_1, user_input 
DESCRIPTION {Interface that allows a petroleum specialist to manually input parameters extracted 
from DA Form 2765-1 during issue of bulk petroleum. The petroleum specialist enters 
the type of fuel issued, quantity in gallons, document number of the issue, the 
receiving unit, and the name/rank of the receiver as required by Army 
Regulation 710-2.} 
END 


IMPLEMENTATION ADA gui_bulk_issue_9 
END 


OPERATOR gui_other_issue_12 
SPECIFICATION 
OUTPUT 
eq iss unit: text_string, 
eq iss name: text_string, 
eq iss fuel_type: integer, 
eq _iss_id: text_string, 
eq iss qty: integer 
KEYWORDS gui, user_input, other_issue 
DESCRIPTION {Interface that allows a petroleum specialist to manually input parameters required by 
Army Regulation 710-2 for all fuel issues other than bulk issues. These other issues 
include fuel issues made directly into or specifically identifiable to a consuming end 
item. An example of this type of issue is to a vehicle or a M2 burner unit. Petroleum 
specialist enters the type of fuel issued, quantity in gallons, the receiving vehicle 
bumper number/equipment name, the receiving unit, and the name/rank of 
the receiver. } 
END 


IMPLEMENTATION ADA gui _ other_issue_12 
END 


OPERATOR daily iss db table 743 
SPECIFICATION 
INPUT 
daily df iss total: integer, 
daily mg iss total: integer, 
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daily jet iss total: integer 
KEYWORDS table, data_base, issue 
DESCRIPTION {Table in a relational database to store the total daily issues per fuel type. The table 
provides a historical audit trail. Also provides a hook for future system enhancement 


such as data mining and statistical analysis applications. } 
END 


IMPLEMENTATION ADA daily _iss_db table 743 
END 


OPERATOR daily_rcpt_db_ table 740 
SPECIFICATION 
INPUT 
daily df rcpt_total: integer, 
daily mg _ rcpt_total: integer, 
daily jet_rcpt_total: integer 
KEYWORDS table, database, receipt 
DESCRIPTION {Table in a relational database to store the daily total receipts per fuel type. The table 
provides a historical audit trail. Also provides a hook for future system enhancement 
such as data mining and statistical analysis applications. } 
END 


IMPLEMENTATION ADA daily rcpt db table 740 
END 


OPERATOR monthly _reporter_601 
SPECIFICATION 
INPUT 
mo _ iss jet total: integer, 
mo_iss_mg total: integer, 
mo_ iss df_ total: integer, 
mo rcpt_jet_total: integer, 
mo _rcpt_mg_ total: integer, 
mo_rcept_df_total: integer 
OUTPUT 
mo_iss_jet_total: integer, 
mo_iss mg total: integer, 
mo_iss_df_ total: integer, 
mo _rcpt_jet_total: integer, 
mo rcpt mg total: integer, 
mo_rcpt_df_total: integer, 
month_df_iss_ total: integer, 
month df_rcpt_total: integer, 
month mg iss _ total: integer, 
month mg _ rcpt_total: integer, 
month_jet_rcpt_total: integer, 
month _jet_iss total: integer 
MAXIMUM EXECUTION TIME 750 MS 
KEYWORDS monthly, periodic_operator 
DESCRIPTION {Periodic operator that forwards the monthly total receipts and issues per fuel type 
every 30 hours. Note: The normal period of the monthly reporter is 720 hours, 
approximately one month. It has been proportionately reduced to 30 hours for this 
prototype. } 
END 


IMPLEMENTATION ADA monthly_reporter_ 601 
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END 


OPERATOR mo jet_iss_totalizer_ 598 
SPECIFICATION 
INPUT 
mo_iss jet_total: integer, 
daily jet_iss_ total: integer 
OUTPUT 
mo_iss_jet_total: integer 
KEYWORDS counter, jet_fuel, issue 
DESCRIPTION {Counter of the quantity of jet fuel issued over the course of the month. Also provides a 
hook for future system enhancement such as user views of the current total issues of jet 
fuel for the month. } 
END 


IMPLEMENTATION ADA mo jet_iss_totalizer_598 
END 


OPERATOR mo _ mg iss totalizer_ 595 
SPECIFICATION 
INPUT 
mo_ iss mg total: integer, 
daily_mg_iss_ total: integer 
OUTPUT 
mo_iss mg total: integer 
KEYWORDS counter, mogas, issue 
DESCRIPTION {Counter of the quantity of mogas issued over the course of the month. Also provides a 
hook for future system enhancement such as user views of the current total issues of 
mogas for the month. } 
END 


IMPLEMENTATION ADA mo_mg iss _totalizer 595 
END 


OPERATOR mo df iss totalizer_592 
SPECIFICATION 
INPUT 
mo _iss df total: integer, 
daily _df_iss total: integer 
OUTPUT 
mo _ iss df total: integer 
KEYWORDS counter, diesel_ fuel, issue 
DESCRIPTION {Counter of the quantity of diesel fuel issued over the course of the month. Also 
provides a hook for future system enhancement such as user views of the current total 
issues of diesel fuel for the month.} 
END 


IMPLEMENTATION ADA mo _4df iss totalizer_592 
END 


OPERATOR mo jet_rcpt_totalizer_589 
SPECIFICATION 
INPUT 
daily jet_rcpt_total: integer, 
mo rcpt jet_total: integer 
OUTPUT 


he 


mo_rcpt_jet_total: integer 
KEYWORDS counter, jet_ fuel, receipt 
DESCRIPTION {Counter of the quantity of jet fuel received over the course of the month. Also provides 
a hook for future system enhancement such as user views of the current total receipts 
of jet fuel for the month.} 
END 


IMPLEMENTATION ADA mo_jet_rcpt_totalizer_589 
END 


OPERATOR mo_ mg rcpt_totalizer 586 
SPECIFICATION 

INPUT 

daily_mg rcpt_total: integer, 

mo _rcpt_mg total: integer 
OUTPUT 

mo rcpt_mg total: integer 
KEYWORDS counter, mogas, receipt 


DESCRIPTION {Counter of the quantity of mogas received over the course of the month. Also provides 
a hook for future system enhancement such as user views of the current total receipts 
of mogas for the month. } 

END 


IMPLEMENTATION ADA mo_mg rcpt _totalizer_586 
END 


OPERATOR mo_df_rcpt_totalizer_583 
SPECIFICATION 
INPUT 
daily df rcpt_total: integer, 
mo rcpt df total: integer 
OUTPUT 
mo _rcpt_df_ total: integer 
KEYWORDS counter, diesel_fuel, receipt 
DESCRIPTION {Counter of the quantity of diesel fuel received over the course of the month. Also 
provides a hook for future system enhancement such as user views of the current total 
receipts of diesel fuel for the month. } 
END 


IMPLEMENTATION ADA mo_df_rcpt_totalizer_583 
END 


OPERATOR diesel_iss_acct_proc_934 
SPECIFICATION 
INPUT 
month df iss total: integer 
OUTPUT 
total mo_df_iss: integer 
KEYWORDS diesel, issue, accountability 
DESCRIPTION {Sets the total monthly diesel issues for processing. } 
END 


IMPLEMENTATION ADA diesel_iss_acct_proc_ 934 
END 
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OPERATOR diesel _rcpt_acct_proc_937 
SPECIFICATION 
INPUT 
month_df_rcpt_total: integer 
OUTPUT 
total mo_df_ rcpt: integer 
KEYWORDS diesel, accountability, receipt 
DESCRIPTION {Sets the total monthly diesel receipts for processing. } 
END 


IMPLEMENTATION ADA diesel_rcpt_acct_proc_937 
END 


OPERATOR mogas _iss_acct_proc_940 
SPECIFICATION 
INPUT 
month mg _ iss total: integer 
OUTPUT 
total mo_mg iss: integer 
KEYWORDS mogas, accountability, issues 
DESCRIPTION {Sets the total monthly mogas issues for processing. } 
END 


IMPLEMENTATION ADA mogas iss acct proc 940 
END 


OPERATOR mogas_rcpt_acct_proc_943 
SPECIFICATION 
INPUT 
month_mg_rcpt_total: integer 
OUTPUT 
total mo_mg rcpt: integer 
KEYWORDS mogas, accountability, receipt 
DESCRIPTION {Sets the total monthly mogas receipts for processing. } 
END 


IMPLEMENTATION ADA mogas rcpt_acct_proc 943 
END 


OPERATOR jet_iss_acct_proc 946 
SPECIFICATION 
INPUT 
month _jet_iss_ total: integer 
OUTPUT 
total_mo_jet_iss: integer 
KEYWORDS jet_fuel, accountability, issue 
DESCRIPTION {Sets the total monthly jet issues for processing.} 
END 


IMPLEMENTATION ADA jet_iss_acct_proc_946 
END 


OPERATOR jet_rcpt_acct_proc_949 
SPECIFICATION 
INPUT 
month_jet_rcpt_total: integer 
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OUTPUT 
total mo_jet_rcpt: integer 
KEYWORDS jet_fuel, accountability, receipt 
DESCRIPTION {Sets the total monthly jet receipts for processing. } 
END 


IMPLEMENTATION ADA jet_rcept_acct_proc 949 
END 


OPERATOR df_acct_cale 952 
SPECIFICATION 
INPUT 
total mo_df_iss: integer, 
total mo_df_rcpt: integer, 
opening inv_diesel: integer, 
diesel_qty_available: integer 
OUTPUT 
tolerance_df: boolean, 
opening inv_ diesel: integer 
KEYWORDS diesel, tolerance, accountability 
DESCRIPTION {Determines whether diesel fuel accountability is within tolerance. } 
END 


IMPLEMENTATION ADA df_acct_cale_ 952 
END 


OPERATOR mg_acct_calc_955 
SPECIFICATION 
INPUT 
total mo_mg iss: integer, 
total mo_mg rcpt: integer, 
opening inv_mogas: integer, 
mogas_ qty available: integer 
OUTPUT 
tolerance_mg: boolean, 
opening inv_mogas: integer 
KEYWORDS mogas, tolerance, accountability 
DESCRIPTION {Determines whether mogas fuel accountability is within tolerance. } 
END 


IMPLEMENTATION ADA mg acct _calc_955 
END 


OPERATOR jet_acct_ calc 958 
SPECIFICATION 
INPUT 
total_mo_jet_iss: integer, 
total _mo_jet_rcpt: integer, 
opening inv_jet: integer, 
jet_qty_available: integer 
OUTPUT 
tolerance_jet: boolean, 
opening _inv_jet: integer 
KEYWORDS jet_fuel, tolerance, accountability 
DESCRIPTION {Determines whether jet fuel accountability is within tolerance. } 
END 
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IMPLEMENTATION ADA jet_acct calc 958 
END 


OPERATOR gui_fuel_on_hand_124 
SPECIFICATION 
INPUT 
jet_qty_available: integer, 
mogas qty_available: integer, 
diesel_qty_available: integer 
KEYWORDS gui, fuel_balance_on_hand, jet fuel balance, diesel_ fuel_balance, mogas balance 
DESCRIPTION {Interface that shows the current fuel totals in gallons that are stored and available for 
issue. This interface is available to both the using petroleum specialist and 
accountable officer. } 
END 


IMPLEMENTATION ADA gui _ fuel_on_hand_124 
END 


OPERATOR gui_acc_officer_179 
SPECIFICATION 
INPUT 
tolerance_df: boolean, - 
tolerance mg: boolean, 
tolerance jet: boolean 
KEYWORDS gui, accountability report, fuel_tolerance 
DESCRIPTION {Interface for the accountable officer to view the monthly fuel report. } 
END : 


IMPLEMENTATION ADA gui_acc_officer_179 
END 


OPERATOR diesel_gage 854 
SPECIFICATION 
INPUT 
df_qty_on_hand: integer 
OUTPUT 
diesel _qty_available: integer 
KEYWORDS storage, tank, diesel, gage 
DESCRIPTION {Simulates gaging the diesel storage tank to determine the quantity of fuel on hand.} 
END 


IMPLEMENTATION ADA diesel_gage 854 
END 


OPERATOR diesel_subtraction_839 
SPECIFICATION 
INPUT 
diesel_ volume: integer, 
diesel _iss_qty: integer 
OUTPUT 
df qty_on_hand: integer, 
diesel_ volume: integer 
KEYWORDS storage, tank, diesel, issue 
DESCRIPTION {Simulates the issue/subtraction of a quantity of diesel fuel from the storage tank.} 
END 
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IMPLEMENTATION ADA diesel_ subtraction 839 
END 


OPERATOR diesel_addition_836 
SPECIFICATION 
INPUT 
diesel volume: integer, 
diesel _rcpt_qty: integer 
OUTPUT 
df _qty_on_hand: integer, 
diesel_ volume: integer 
KEYWORDS storage, tank, diesel, receipt 
DESCRIPTION {Simulates the receipt/addition of a quantity of diesel fuel to the storage tank.} 
END 


IMPLEMENTATION ADA diesel_addition_836 
END 


OPERATOR fuel_subsystem_1 

SPECIFICATION 
STATES jet_qty_on_hand: integer INITIALLY 0 
STATES jet_volume: integer INITIALLY 0 
STATES mogas_ volume: integer INITIALLY 0 
STATES mg_qty_on_hand: integer INITIALLY 0 
STATES jet_iss_total: integer INITIALLY 0 
STATES mg iss_total: integer INITIALLY 0 
STATES df_iss_total: integer INITIALLY 0 
STATES jet_rcpt_total: integer INITIALLY 0 
STATES mg_rcpt_total: integer INITIALLY 0 
STATES df_rcpt_total: integer INITIALLY 0 
STATES oth_rcpt_enable: boolean INITIALLY FALSE 
STATES bulk_rcpt_enable: boolean INITIALLY FALSE 
STATES bulk_ iss enable: boolean INITIALLY FALSE 
STATES oth_iss_enable: boolean INITIALLY FALSE 
STATES mo _iss_jet_total: integer INITIALLY 0 
STATES mo_iss_mg total: integer INITIALLY 0 
STATES mo _iss_ df total: integer INITIALLY 0 
STATES mo rept _jet_total: integer INITIALLY 0 
STATES mo_rcpt_mg_ total: integer INITIALLY 0 
STATES mo_rcpt_df_total: integer INITIALLY 0 
STATES total_mo_df_iss: integer INITIALLY 0 
STATES total_mo_df_rept: integer INITIALLY 0 
STATES total_mo_mg iss: integer INITIALLY 0 
STATES total_mo_mg rcpt: integer INITIALLY 0 
STATES total_mo_jet_iss: integer INITIALLY 0 
STATES total_mo_jet_rept: integer INITIALLY 0 
STATES opening _inv_diesel: integer INITIALLY 0 
STATES opening inv_mogas: integer INITIALLY 0 
STATES opening inv jet: integer INITIALLY 0 
STATES df_qty_on_hand: integer INITIALLY 0 
STATES diesel_ volume: integer INITIALLY 0 

END 


IMPLEMENTATION 
GRAPH 
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VERTEX gui bulk receipt 3 
VERTEX gui_other_receipt_6 
VERTEX gui_bulk_issue 9 
VERTEX gui_other_issue_12 
VERTEX gui_fuel_on_hand_124 
VERTEX gui_acc_officer_179 
VERTEX jet_gage_917 

VERTEX jet_subtraction_914 
VERTEX jet_addition_911 
VERTEX mogas_ addition 888 
VERTEX mogas _subtraction_891 
VERTEX mogas gage 894 
VERTEX other_iss_db_table 504 
VERTEX other_rcpt_db_ table 501 
VERTEX bulk_iss db table 498 
VERTEX bulk_rcpt_db_table 495 
VERTEX daily_reporter_410: 750 MS 
VERTEX df_iss_totalizer_352 
VERTEX mg iss totalizer_349 
VERTEX jet_iss_totalizer_ 346 
VERTEX jet_rcpt_totalizer_280 
VERTEX mg rcpt_totalizer_277 
VERTEX df_rcpt_totalizer_274 
VERTEX bulk_rcpt_processor_198 
VERTEX oth_rcpt_processor_207 
VERTEX rcpt_processor_210 
VERTEX oth_iss_processor_307 
VERTEX bulk_iss_processor_310 
VERTEX iss_processor_323 
VERTEX daily_iss_db_table_ 743 
VERTEX daily_rcpt_db_ table 740 
VERTEX monthly_reporter_601: 750 MS 
VERTEX mo_jet_iss_totalizer_598 
VERTEX mo_mg iss _totalizer 595 
VERTEX mo_df_iss_totalizer_592 
VERTEX mo_jet_rcpt_totalizer_ 589 
VERTEX mo_mg rcpt _totalizer_ 586 
VERTEX mo_df_rcpt_totalizer_583 
VERTEX diesel_iss_acct_proc_ 934 
VERTEX diesel_rcpt_acct_proc_937 
VERTEX mogas _iss_acct_proc 940 
VERTEX mogas rcpt_acct_proc 943 
VERTEX jet_iss acct_proc 946 
VERTEX jet_rcpt_acct_proc_949 
VERTEX df_acct_calc_952 
VERTEX mg acct_calc_ 955 
VERTEX jet_acct_calc_958 
VERTEX diesel_gage 854 
VERTEX diesel_subtraction_839 
VERTEX diesel_addition_ 836 


EDGE jet_qty_on_hand jet_subtraction_914 -> jet_gage 917 
EDGE jet_qty_on_hand jet_addition_911 ->jet_gage 917 
EDGE jet_volume jet_addition_911 -> jet_addition_911 

EDGE jet_volume jet_subtraction_914 -> jet_subtraction_914 
EDGE jet_qty_available jet_gage 917 -> gui fuel_on_hand 124 
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EDGE mogas volume mogas addition_888 -> mogas addition 888 
EDGE mogas_ volume mogas_subtraction_891 -> mogas_subtraction_891 
EDGE mg_qty_on_hand mogas_addition_888 -> mogas gage 894 
EDGE mg_qty_on_hand mogas_subtraction_891 -> mogas gage 894 
EDGE mogas_qty_available mogas gage 894 -> gui fuel_on_hand_124 
EDGE jet_iss_ total jet_iss_totalizer_346 -> daily_reporter_410 

EDGE mg _iss_ total mg_iss_totalizer_349 -> daily _reporter_410 

EDGE df_iss_total df_iss_totalizer_352 -> daily_reporter_410 

EDGE mg _ iss total daily_reporter_410 -> daily_reporter_410 

EDGE df_iss_ total daily _reporter_410 -> daily_reporter_410 

EDGE jet_iss_total daily_reporter_410 -> daily_reporter_410 

EDGE jet_rcpt_total daily_reporter_410 -> daily reporter_410 

EDGE mg rcpt_total daily reporter _410 -> daily reporter 410 

EDGE df_rcpt_total daily_reporter_410 -> daily _reporter_410 

EDGE df_rcpt_total df_rcpt_totalizer_274 -> daily _reporter_410 

EDGE mg rcpt_total mg _rcpt_totalizer_277 -> daily_reporter_410 
EDGE jet_rcpt_total jet_rcpt_totalizer_280 -> daily_reporter_410 
EDGE i_df_qty iss_processor_323 -> df_iss_totalizer_352 

EDGE i_mg qty iss_processor_323 -> mg _ iss _totalizer_349 

EDGE i _jet_qty iss_processor_323 -> jet_iss_totalizer_346 

EDGE r _jet_qty rcpt_processor_210 -> jet_rcpt_totalizer_280 

EDGE r_mg _ qty rcpt_processor_210 -> mg _rcpt_totalizer_277 

EDGE r_df_gty rcpt_processor_210 -> df_rcpt_totalizer_274 

EDGE oth _ rcpt_enable oth_rcpt_processor_207 ->rcpt_processor_ 210 
EDGE bulk _rcpt_enable bulk_rcpt_processor_198 ->rcpt_processor_210 
EDGE bulk_iss_ enable bulk_iss_processor_310 ->1iss_processor_323 
EDGE oth_iss_enable oth_iss_processor_307 -> iss_processor_323 
EDGE df_rcpt_total df_rcpt_totalizer_274 -> df_rcpt_totalizer_274 
EDGE mg rcpt_total mg rcpt_totalizer_277 -> mg_rcpt_totalizer_277 
EDGE jet_rept_ total jet_rcpt_totalizer_280 ->jet_rcpt_totalizer_280 
EDGE jet_iss_ total jet_iss_totalizer_346 -> jet_iss_totalizer_346 

EDGE df iss total df_iss_totalizer_352 -> df_iss_totalizer_352 

EDGE mg iss total mg_iss_totalizer_349 -> mg iss totalizer 349 
EDGE bulk_rcpt_enable oth_rcpt_processor_207 -> oth_rcpt_processor_207 
EDGE oth _rcpt_enable bulk_rcpt_processor_198 -> bulk_rcpt_processor_198 
EDGE oth_iss_enable bulk_iss_processor_310 -> bulk_iss_processor_310 
EDGE bulk_iss_enable oth_iss_processor_307 -> oth_iss_processor_307 
EDGE eq_iss_unit gui_other_issue_12 -> other_iss_db_table_504 
EDGE eq_iss_name gui_other_issue_12 -> other_iss_db_table_504 
EDGE eq _iss_fuel_type gui_other_issue_12 -> other_iss_db_table_504 | 
EDGE eq_iss_fuel_type gui_other_issue_12 -> oth_iss_processor_307 
EDGE eq_iss_fuel_type gui_other_issue_12 -> iss_processor_323 
EDGE eq_iss_id gui other_issue_12 ->other_iss_db_ table 504 

EDGE eq_iss_qty gui_other_issue_12 -> other_iss_db_table 504 

EDGE eq_iss_qty gui_other_issue_12 -> oth_iss_processor_307 

EDGE eq_iss_qty gui_other_issue_12 -> iss_processor_323 

EDGE bulk_rcv_unit gui_bulk_issue_9 -> bulk_iss_db_table_498 
EDGE bulk_iss_doc_num gui_bulk_issue_9 -> bulk_iss_db_table_498 
EDGE bulk_rcv_name gui_bulk_issue_9 -> bulk_iss_db_table_498 
EDGE bulk iss qty gui_bulk_issue_9 -> bulk_iss_db_table_498 

EDGE bulk _iss_qty gui_bulk_issue_9 -> bulk_iss_processor_310 
EDGE bulk_iss_qty gui_bulk_issue_9 -> iss_processor_323 

EDGE bulk iss fuel_type gui_bulk_issue_9 -> bulk_iss_db_table_498 
EDGE bulk _iss_fuel_type gui_bulk_issue_9 -> bulk_iss_processor_310 
EDGE bulk_iss_fuel_type gui_bulk_issue_9 -> iss_processor_323 
EDGE oth rcpt qty gui_other_receipt_6 -> other_rcpt_db_table_501 
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EDGE oth_rcpt_qty gui_other_receipt_6 -> oth_rcpt_processor_207 

EDGE oth_rcpt_qty gui_other_receipt_6 -> rcpt_processor_210 

EDGE oth_rcpt_source_unit gui_other_receipt_6 -> other_rcpt_db_table_501 
EDGE oth_rcpt_fuel_type gui_other_receipt_6-> other_rcpt_db_table_ 501 
EDGE oth_rcpt_fuel_type gui_other_receipt_6 -> oth_rcpt_processor_207 
EDGE oth_rcpt_fuel_type gui_other_receipt_6 ->rcpt_processor_210 

EDGE oth rcpt_source_id gui other _receipt_6 -> other_rcpt_db table 501 
EDGE bulk_rcpt_fuel_type gui_bulk_ receipt _3 -> bulk_rcpt_db_table_495 
EDGE bulk_rcpt_fuel_type gui_bulk_receipt_3 -> bulk_rcpt_processor_198 
EDGE bulk_rcpt_fuel_type gui_bulk_receipt_3 -> rcpt_processor_210 

EDGE bulk_rcpt_doc_number gui_bulk_receipt_3 -> bulk_rcpt_db_table_495 
EDGE bulk_rcpt_qty gui_bulk_receipt_3 -> bulk _rcpt_db table 495 

EDGE bulk_rcpt_qty gui_bulk_receipt_3 -> bulk_rcpt_processor_198 

EDGE bulk_rept_qty gui_bulk_receipt_3 -> rcpt_processor_210 

EDGE jet_iss_qty iss_processor_323 -> jet_subtraction_914 

EDGE jet_rcpt_qty rcpt_processor_210 -> jet_addition_ 911 

EDGE mogas rcpt_qty rcpt_processor_210 -> mogas_addition_888 

EDGE mogas _iss_qty iss_processor_323 -> mogas_subtraction_891 

EDGE mo iss jet_total monthly reporter_601 -> monthly_reporter_601 
EDGE mo _iss_mg_ total monthly_reporter_601 -> monthly_reporter_601 
EDGE mo _iss_df_total monthly_reporter_601 -> monthly_reporter_601 
EDGE mo rcpt_jet_total monthly reporter_601 -> monthly_reporter_601 
EDGE mo _rcpt_mg total monthly_reporter_601 -> monthly _reporter_601 
EDGE mo_rcpt_df_total monthly_reporter_601 -> monthly_reporter_601 
EDGE mo _iss jet_total mo_jet_iss_totalizer_598 -> monthly _reporter_601 
EDGE mo iss jet total mo jet_iss totalizer_598 -> mo jet_iss totalizer_598 
EDGE mo iss mg total mo_mg iss totalizer_595 -> monthly_reporter_601 
EDGE mo _ iss _mg total mo_mg iss totalizer_595 -> mo_mg _ iss _totalizer_595 
EDGE mo iss df total mo_df_iss totalizer_592 -> monthly _reporter_601 
EDGE mo iss df_total mo_df_ iss totalizer_ 592 -> mo_df_ iss totalizer_592 
EDGE mo _rcpt_ jet_total mo_jet_rcpt_totalizer_589 -> monthly_reporter_601 
EDGE mo rept jet_total mo jet_rcpt_totalizer_589 -> mo _jet_rcpt_totalizer_589 
EDGE mo rcpt_mg total mo_ mg rcpt_totalizer_586 -> monthly_reporter_601 
EDGE mo rcpt_mg total mo_mg rcpt_totalizer_586 -> mo_mg _rcpt_totalizer_586 
EDGE mo rept_df total mo_df_rcpt_totalizer_583 -> mo_df_rcpt_totalizer_583 
EDGE mo rcpt_df_total mo_df_rcpt_totalizer_583 -> monthly_reporter_601 
EDGE daily df_rcpt_total daily_reporter_410 -> daily _rcpt_db_table_740 
EDGE daily df_rcpt_total daily_reporter_410 -> mo_df_rcpt_totalizer_583 
EDGE daily _df_iss_ total daily_reporter_410 -> daily iss db_table_743 
EDGE daily df iss total daily reporter_410 -> mo_df_iss_ totalizer_592 
EDGE daily jet_iss total daily reporter_410 -> daily _iss_db_table_ 743 
EDGE daily_jet_iss_ total daily _reporter_410 -> mo_jet_iss_totalizer_598 
EDGE daily jet_rcpt_total daily_reporter_410 -> daily rcpt_db_table_740 
EDGE daily jet_rcpt_total daily reporter_410->mo_jet_rcpt_totalizer_589 
EDGE daily mg iss total daily reporter_410 -> daily_iss db_table_743 
EDGE daily_mg iss total daily reporter_410 -> mo_mg iss totalizer_595 
EDGE daily mg _rcpt_total daily_reporter_410 -> daily_rcpt_db_table_740 
EDGE daily mg _rcpt_total daily reporter 410 ->mo_mg rcpt_totalizer_586 
EDGE total_mo_df_ iss diesel_iss_acct_proc_934 -> df_acct_calc_952 

EDGE total_mo_df_rcpt diesel_rcpt_acct_proc_937 -> df_acct_calc_952 
EDGE total_mo_mg_ iss mogas iss acct_proc_940 -> mg acct_calc_955 
EDGE total _mo_mg_ rcpt mogas_rcpt_acct_proc_943 ->mg_acct_calc_955 
EDGE total_mo_jet_iss jet_iss_acct_proc_946 -> jet_acct_calc_958 

EDGE total_mo_jet_rcpt jet_rcpt_acct_proc_949 -> jet_acct_calc_958 

EDGE opening inv diesel df_acct_calc_952 -> df_acct_calc_952 

EDGE opening inv_mogas mg_acct_calc_955 -> mg_acct_calc_955 
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EDGE opening _inv_jet jet_acct_calc_958 -> jet_acct_calc_958 

EDGE jet_qty_available jet_gage 917 -> jet_acct_calc_958 

EDGE mogas_qty_available mogas_ gage 894 ->mg acct_calc 955 

EDGE month_df_iss_total monthly_reporter_601 -> diesel_iss acct_proc_934 
EDGE month_df_rcpt_total monthly_reporter_601 -> diesel_rcpt_acct_proc_937 
EDGE month_jet_iss_total monthly_reporter_601 -> jet_iss_acct_proc 946 
EDGE month_jet_rcpt_total monthly _reporter_601 -> jet_rcpt_acct_proc 949 
EDGE month_mg_iss_total monthly_reporter_601 -> mogas iss acct_proc_940 
EDGE month_mg _rcpt_total monthly _reporter_601 -> mogas rcpt_acct_proc_ 943 
EDGE tolerance_df df_acct_calc_952 -> gui_acc_officer_179 

EDGE tolerance_mg mg_acct_calc_955 -> gui_acc_officer_179 

EDGE tolerance_jet jet_acct_calc_958 -> gui_acc_officer_179 

EDGE df_qty_on_hand diesel_subtraction_839 -> diesel gage 854 

EDGE df_qty_on_hand diesel_addition_836 -> diesel_gage 854 

EDGE diesel_volume diesel_subtraction_839 -> diesel subtraction 839 

EDGE diesel_volume diesel_addition_836 -> diesel_addition_836 

EDGE diesel_rcpt_qty rcpt_processor_210 -> diesel_addition_836 

EDGE diesel_iss_qty iss_processor_323 -> diesel_subtraction_839 

EDGE diesel_qty_available diesel_gage 854 -> gui fuel_on hand 124 

EDGE diesel_qty_available diesel_gage 854 -> df_acct_calc_ 952 


DATA STREAM 
jet_qty_available: integer, 
mogas qty_available: integer, 
jet_iss_qty: integer, 
jet_rcpt_qty: integer, 
mogas rcpt_qty: integer, 
mogas iss qty: integer, 
diesel qty available: integer, 
month_df_iss_total: integer, 
month_df_rcpt_total: integer, 
daily df rcpt_total: integer, 
daily df iss total: integer, 
eq iss unit: text_string, 
eq iss name: text_string, 
eq_iss_fuel_type: integer, 
eq_iss_id: text_string, 
eq _iss_ qty: integer, 
bulk rcv_unit: text_string, 
bulk_iss _doc_num: text_string, 
bulk_rcv_name: text_string, 
bulk _iss_ qty: integer, 
bulk_iss_fuel_type: integer, 
oth_rcpt_qty: integer, 
oth_rcpt_source_unit: text_string, 
oth_ rcpt fuel_type: integer, 
oth _rcpt_source_id: text_string, 
bulk_rcpt_fuel_type: integer, 
bulk_rcpt_doc_number: text_string, 
bulk _rcpt_qty: integer, 
daily jet_iss_ total: integer, 
daily jet_rcpt_total: integer, 
daily mg _iss_total: integer, 
daily mg rcpt_total: integer, 
month jet_iss total: integer, 
month jet_rcpt_total: integer, 
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month _mg iss _total: integer, 

month_mg _ rcpt_total: integer, 

tolerance_df: boolean, 

tolerance_mg: boolean, 

tolerance_jet: boolean, 

diesel_rcpt_qty: integer, 

diesel iss qty: integer, 

i df qty: integer, 

i mg qty: integer, 

1 jet_qty: integer, 

r_jet_qty: integer, 

r mg _ qty: integer, 

r_df qty: integer 

CONTROL CONSTRAINTS 

OPERATOR gui_bulk_receipt_3 

OPERATOR gui_other_receipt_6 

OPERATOR gui_bulk_issue_9 

OPERATOR gui _other_issue_12 

OPERATOR gui fuel_on_hand_ 124 

OPERATOR gui_acc_officer_179 

OPERATOR jet_gage_ 917 
TRIGGERED BY SOME jet_qty_on_hand 

OPERATOR jet_subtraction 914 
TRIGGERED BY ALL jet_iss_qty 

OPERATOR jet_addition_911 
TRIGGERED BY ALL jet_rcpt_qty 

OPERATOR mogas_ addition 888 
TRIGGERED BY ALL mogas rept_qty 

OPERATOR mogas_subtraction_ 891 
TRIGGERED BY ALL mogas iss _ qty 

OPERATOR mogas_ gage 894 
TRIGGERED BY SOME mg_qty_on_hand 

OPERATOR other_iss_db_table_ 504 
TRIGGERED BY SOME eq_iss_fuel_type, eq_iss_qty, eq_iss id, eq_iss_unit, eq iss name 

OPERATOR other_rcpt_db_table 501 
TRIGGERED BY SOME oth_rcpt_fuel_type, oth_rcpt_qty, oth_rcpt_source_id, oth_rcpt_source_unit 

OPERATOR bulk_iss_db_table 498 
TRIGGERED BY SOME bulk _iss_fuel_type, bulk_iss qty, bulk iss doc_num, bulk rcv_unit, 

bulk _rcv_name 

OPERATOR bulk_rcpt_db_table_ 495 
TRIGGERED BY SOME bulk _rcpt_fuel_type, bulk_rcpt_qty, bulk_rcpt_doc_number 

OPERATOR daily_reporter_410 
PERIOD 3600000 MS 
FINISH WITHIN 750 MS 

OPERATOR df_iss_totalizer_352 
TRIGGERED BY ALL 1_df_qty 

OPERATOR mg iss_totalizer_ 349 
TRIGGERED BY ALL 1 mg qty 

OPERATOR jet_iss_totalizer_ 346 
TRIGGERED BY ALL 1_jet_qty 

OPERATOR jet_rcpt_totalizer_280 
TRIGGERED BY ALL r_jet_qty 

OPERATOR mg rept _totalizer_277 
TRIGGERED BY ALLr_mg qty 

OPERATOR df_rcpt_totalizer_274 
TRIGGERED BY ALL r_df_qty 
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OPERATOR bulk _rcpt_processor_ 198 

TRIGGERED BY ALL bulk _rcpt_fuel_type, bulk _rcpt_qty 
OPERATOR oth_rcpt_processor_207 

TRIGGERED BY ALL oth_rcpt_fuel_type, oth_rcpt_qty 
OPERATOR rcpt_processor_ 210 

TRIGGERED BY SOME bulk _rcpt_enable, oth_rcpt_enable 
OPERATOR oth_iss_processor_307 

TRIGGERED BY ALL eq_iss_qty, eq_iss_fuel_type 
OPERATOR bulk_iss_processor_310 

TRIGGERED BY ALL bulk iss fuel_type, bulk_iss_ qty 
OPERATOR iss_processor_323 

TRIGGERED BY SOME bulk_iss_enable, oth_iss_ enable 
OPERATOR daily_iss_db_table 743 

TRIGGERED BY SOME daily _df_iss_total, daily_mg iss total, daily jet iss total 
OPERATOR daily_rcpt_db_ table 740 

TRIGGERED BY SOME daily_df_rcpt_total, daily_mg rcpt_total, daily _jet_rcpt_total 
OPERATOR monthly_reporter_ 601 

PERIOD 108000000 MS 

FINISH WITHIN 750 MS 
OPERATOR mo jet_iss_totalizer_ 598 

TRIGGERED BY SOME daily jet_iss total 
OPERATOR mo _ mg iss totalizer 595 

TRIGGERED BY SOME daily mg iss _ total 
OPERATOR mo_df_iss_totalizer_ 592 

TRIGGERED BY SOME daily df iss total 
OPERATOR mo _jet_rcpt_totalizer_ 589 

TRIGGERED BY SOME daily jet_rcpt_total 
OPERATOR mo_mg rcpt_totalizer 586 

TRIGGERED BY SOME daily mg rcpt_total 
OPERATOR mo_df_rcpt_totalizer_583 

TRIGGERED BY SOME daily_df_rcpt_total 
OPERATOR diesel_iss_acct_proc_ 934 

TRIGGERED BY SOME month _df_iss_total 
OPERATOR diesel_rcpt_acct_proc_937 

TRIGGERED BY SOME month df rcpt_total 
OPERATOR mogas _iss_acct_proc_ 940 

TRIGGERED BY SOME month mg iss total 
OPERATOR mogas rcpt_acct_proc 943 

TRIGGERED BY SOME month_mg rcpt_total 
OPERATOR Jjet_iss_acct_proc 946 

TRIGGERED BY SOME month _jet_iss_ total 
OPERATOR jet_rcpt_acct_proc_ 949 

TRIGGERED BY SOME month _jet_rcpt_total 
OPERATOR df_acct_calc_ 952 

TRIGGERED BY ALL total_mo_df_iss, total mo df rept 
OPERATOR mg _acct_calc_955 

TRIGGERED BY ALL total_mo_mg iss, total mo mg rcpt 
OPERATOR jet_acct_calc_958 

TRIGGERED BY ALL total_mo_jet_iss, total_mo_jet_rcpt 
OPERATOR diesel_gage 854 

TRIGGERED BY SOME df_qty_on_hand 
OPERATOR diesel_subtraction_839 

TRIGGERED BY ALL diesel_iss_qty 
OPERATOR diesel_ addition 836 

TRIGGERED BY ALL diesel_rcpt_qty 
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DESCRIPTION {The Fuel Automated Subsystem automates Army petroleum 
management/accountability in accordance with Army Regulation 710-2 and 735-5.} 
END 
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-- File: fuel_subsystem.a 

-- Author: Lawrence A. Kominiak, Major, USA 
-- Project: Fuel Automated Subsystem of ICS3 
-- Date: February 1998 

-- Description: Control code generated by CAPS 


package FUEL_SUBSYSTEM_1_EXCEPTIONS is 

-- PSDL exception type declaration 

type PSDL_EXCEPTION is (UNDECLARED_ADA_EXCEPTION); 
end FUEL_SUBS YSTEM_1_EXCEPTIONS; 


package FUEL_SUBSYSTEM_1_INSTANTIATIONS is 
-- Ada Generic package instantiations 


end FUEL_SUBSYSTEM_1_INSTANTIATIONS; 


with PSDL_TIMERS; 

package FUEL_SUBSYSTEM_1_TIMERS is 
-- Timer instantiations 

end FUEL_SUBS YSTEM_1_TIMERS; 


-- with/use clauses for atomic type packages 

with TEXT_STRING_PKG; use TEXT_STRING_PKG; 
-- with/use clauses for generated packages. 

with FUEL_SUBSY STEM_1_EXCEPTIONS; use FUEL_SUBS YSTEM_1_EXCEPTIONS; 

with FUEL_SUBSYSTEM_1_INSTANTIATIONS; use FUEL_SUBSYSTEM_1_INSTANTIATIONS; 
-- with/use clauses for CAPS library packages. 

with PSDL_STREAMS; use PSDL_STREAMS; 

package FUEL_SUBSYSTEM_1_STREAMS is 

-- Local stream instantiations 


package DS_JET_QTY_AVAILABLE_JET_ACCT_CALC_958 is new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 


package DS_JET_QTY_AVAILABLE_GUI_FUEL_ON_HAND_ 124 is new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 


package DS_MOGAS_QTY_AVAILABLE_MG_ACCT_CALC_955 is new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 


package DS_MOGAS_QTY_AVAILABLE_GUI_FUEL_ON_HAND_ 124 is new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 


package DS_JET_ISS_QTY_JET_SUBTRACTION_914 is new 
PSDL_STREAMS.FIFO_BUFFER(UINTEGER); 


package DS_JET_RCPT_QTY_JET_ADDITION_911 is new 
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PSDL_STREAMS.FIFO_BUFFER(INTEGER); 


package DS_MOGAS_RCPT_QTY_MOGAS_ADDITION_ 8838 is new 
PSDL_STREAMS.FIFO_BUFFER(INTEGER); 


package DS_MOGAS_ISS_QTY_MOGAS_SUBTRACTION_891 is new 
PSDL_STREAMS.FIFO_BUFFER(INTEGER); 


package DS_DIESEL_QTY_AVAILABLE_DF_ACCT_CALC_952 is new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 


package DS_DIESEL_QTY_AVAILABLE_GUI_FUEL_ON_HAND_ 124 is new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 


package DS_MONTH_DF_ISS_TOTAL_DIESEL_ISS_ACCT_PROC_934 is new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 


package DS_MONTH_DF_RCPT_TOTAL_DIESEL_RCPT_ACCT_PROC_937 is new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 


package DS_DAILY_DF_RCPT_TOTAL_MO_DF_RCPT_TOTALIZER_583 is new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 


package DS_DAILY_DF_RCPT_TOTAL_DAILY_RCPT_DB_TABLE_740 is new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 


package DS_DAILY_DF_ISS_TOTAL_MO_DF_ISS_TOTALIZER_592 is new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 


package DS_DAILY_DF_ISS_TOTAL_DAILY_ISS_DB_TABLE_743 is new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 


package DS_EQ_ISS_UNIT_OTHER_ISS_DB_TABLE_504 is new 
PSDL_STREAMS .SAMPLED_BUFFER(TEXT_STRING); 


package DS_EQ_ISS_NAME_OTHER_ISS_DB_TABLE_504 is new 
PSDL_STREAMS.SAMPLED_BUFFER(TEXT_STRING); 


package DS_EQ_ISS_FUEL_TYPE_ISS_PROCESSOR_323 is new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 


package DS_EQ_ISS_FUEL_TYPE_OTH_ISS_PROCESSOR_307 is new 
PSDL_STREAMS.FIFO_BUFFER(INTEGER); 


package DS_EQ_ISS_FUEL_TYPE_OTHER_ISS_DB_TABLE_ 504 is new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 


package DS_EQ_ISS_ID_OTHER_ISS_DB_TABLE_504 is new 
PSDL_STREAMS.SAMPLED_BUFFER(TEXT_STRING); 


package DS_EQ_ISS_QTY_ISS_PROCESSOR_323 is new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 


package DS_EQ_ISS_QT Y_OTH_ISS_PROCESSOR_307 is new 
PSDL_STREAMS.FIFO_BUFFER(INTEGER); 
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package DS_EQ_ISS_QTY_OTHER_ISS_DB_TABLE_504 is new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 


package DS_BULK_RCV_UNIT_BULK_ISS_DB_TABLE_498 is new 
PSDL_STREAMS.SAMPLED_BUFFER(TEXT_STRING); 


package DS_BULK_ISS_-DOC_NUM_BULK_ISS_DB_TABLE 498 is new 
PSDL_STREAMS.SAMPLED_BUFFER(TEXT_STRING); 


package DS_BULK_RCV_NAME_BULK_ISS_DB_TABLE 498 is new 
PSDL_STREAMS.SAMPLED_BUFFER(TEXT_STRING); 


package DS_BULK_ISS_QTY_ISS_PROCESSOR_323 is new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 


package DS_BULK_ISS_QTY_BULK_ISS_PROCESSOR_310 is new 
PSDL_STREAMS.FIFO_BUFFER(INTEGER); 


package DS_BULK_ISS_QTY_BULK_ISS_DB_TABLE_498 is new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 


package DS_BULK_ISS_FUEL_TYPE_ISS_PROCESSOR_323 is new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 


package DS_BULK_ISS_FUEL_TYPE_BULK_ISS_PROCESSOR_310 is new 
PSDL_STREAMS.FIFO_BUFFER(INTEGER); 


package DS_BULK_ISS_FUEL_TYPE_BULK_ISS_DB_TABLE_498 is new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 


package DS_OTH_RCPT_QTY_RCPT_PROCESSOR_210 is new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 


package DS_OTH_RCPT_QTY_OTH_RCPT_PROCESSOR_207 is new 
PSDL_STREAMS.FIFO_BUFFER(INTEGER): 


package DS_OTH_RCPT_QTY_OTHER_RCPT_DB_TABLE_501 is new 
PSDL_STREAMS.SAMPLED_BUFFER(UNTEGER); 


package DS_OTH_RCPT_SOURCE_UNIT_OTHER_RCPT_DB_TABLE_501 is new 
PSDL_STREAMS.SAMPLED_BUFFER(TEXT_STRING); 


package DS_OTH_RCPT_FUEL_TYPE_RCPT_PROCESSOR_210 is new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 


package DS_OTH_RCPT_FUEL_TYPE_OTH_RCPT_PROCESSOR_207 is new 
PSDL_STREAMS.FIFO_BUFFER(INTEGER); 


package DS_OTH_RCPT_FUEL_TYPE_OTHER_RCPT_DB_TABLE_501 is new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 


package DS_OTH_RCPT_SOURCE_ID_OTHER_RCPT_DB_TABLE_501 is new 
PSDL_STREAMS.SAMPLED_BUFFER(TEXT_STRING); 


package DS_BULK_RCPT_FUEL_TYPE_RCPT_PROCESSOR_210 is new 
PSDL_STREAMS.SAMPLED_ BUFFER(INTEGER); 
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package DS_BULK_RCPT_FUEL_TYPE_BULK_RCPT_PROCESSOR_ 198 is new 
PSDL_STREAMS.FIFO_BUFFER(INTEGER); 


package DS_BULK_RCPT_FUEL_TYPE_BULK_RCPT_DB_TABLE_495 is new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 


package DS_BULK_RCPT_DOC_NUMBER_BULK_RCPT_DB_TABLE_495 is new 
PSDL_STREAMS.SAMPLED_BUFFER(TEXT_STRING); 


package DS_BULK_RCPT_QTY_RCPT_PROCESSOR_210 is new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 


package DS_BULK_RCPT_QTY_BULK_RCPT_PROCESSOR_198 is new 
PSDL_STREAMS.FIFO_BUFFER(INTEGER); 


package DS_BULK_RCPT_QTY_BULK_RCPT_DB_TABLE_495 is new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 


package DS_DAILY_JET_ISS_TOTAL_MO_JET_ISS_TOTALIZER_598 is new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER): 


package DS_DAILY_JET_ISS_TOTAL_DAILY_ISS_DB_TABLE_743 is new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 


package DS_DAILY_JET_RCPT_TOTAL_MO_JET_RCPT_TOTALIZER_ 589 is new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 


package DS_DAILY_JET_RCPT_TOTAL_DAILY_RCPT_DB_TABLE_740 is new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 


package DS_DAILY_MG_ISS_TOTAL_MO_MG_ISS_TOTALIZER_595 is new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 


package DS_DAILY_MG_ISS_TOTAL_DAILY_ISS_DB_TABLE_743 is new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 


package DS_DAILY_MG_RCPT_TOTAL_MO_MG_RCPT_TOTALIZER_ 586 is new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER): 


package DS_DAILY_MG_RCPT_TOTAL_DAILY_RCPT_DB_TABLE_740 is new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 


package DS_MONTH_JET_ISS_TOTAL_JET_ISS_ACCT_PROC_946 is new 
PSDL_STREAMS.SAMPLED_ BUFFER(INTEGER); 


package DS_MONTH_JET_RCPT_TOTAL_JET_RCPT_ACCT_PROC_949 is new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 


package DS_MONTH_MG_ISS_TOTAL_MOGAS_ISS_ACCT_PROC_940 is new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 


package DS_MONTH_MG_RCPT_TOTAL_MOGAS_RCPT_ACCT_PROC_943 is new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 


package DS_TOLERANCE_DF_GUI_ACC_OFFICER_179 1s new 
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PSDL_STREAMS.SAMPLED_BUFFER(BOOLEAN); 


package DS_TOLERANCE_MG_GUI_ACC_OFFICER_179 is new 
PSDL_STREAMS.SAMPLED_BUFFER(BOOLEAN); 


package DS_TOLERANCE_JET_GUI_ACC_OFFICER_ 179 is new 
PSDL_STREAMS.SAMPLED_BUFFER(BOOLEAN); 


package DS_DIESEL_RCPT_QTY_DIESEL_ADDITION_ 836 is new 
PSDL_STREAMS.FIFO_BUFFER(INTEGER): 


package DS_DIESEL_ISS_QTY_DIESEL_SUBTRACTION_ 839 is new 
PSDL_STREAMS.FIFO_BUFFER(INTEGER): 


package DS_I_DF_QTY_DF_ISS_TOTALIZER_352 is new 
PSDL_STREAMS.FIFO_BUFFER(INTEGER); 


package DS_I_MG_QTY_MG_ISS_TOTALIZER_349 is new 
PSDL_STREAMS.FIFO_BUFFER(INTEGER); 


package DS_I_JET_QTY_JET_ISS_TOTALIZER_346 is new 
PSDL_STREAMS.FIFO_BUFFER(INTEGER); 


package DS_R_JET_QTY_JET_RCPT_TOTALIZER_280 is new 
PSDL_STREAMS.FIFO_BUFFER(INTEGER); 


package DS_R_MG_QTY_MG_RCPT_TOTALIZER_277 is new 
PSDL_STREAMS.FIFO_BUFFER(INTEGER); 


package DS_R_DF_QTY_DF_RCPT_TOTALIZER_274 is new 
PSDL_STREAMS.FIFO_BUFFER(INTEGER); 


-- State stream instantiations 


package DS_JET_QTY_ON_HAND_JET_GAGE_917 is new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER, 0); 


package DS_JET_VOLUME_JET_SUBTRACTION_914 is new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER, 0); 


package DS_JET_VOLUME_JET_ADDITION_911 is new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER, 0); 


package DS_MOGAS_VOLUME_MOGAS_SUBTRACTION_891 is new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER, 0); 


package DS_MOGAS_VOLUME_MOGAS_ADDITION_888 is new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER, 0); 


package DS_MG_QTY_ON_HAND_MOGAS_GAGE_ 894 is new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER, 0); 


package DS_JET_ISS_TOTAL_JET_ISS_TOTALIZER_346 is new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER, 0); 


package DS_JET_ISS_TOTAL_DAILY_REPORTER_410 1s new 
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PSDL_STREAMS.STATE_VARIABLE(INTEGER, 0); 


package DS_MG_ISS_TOTAL_MG_ISS_TOTALIZER_349 is new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER, 0); 


package DS_MG_ISS_TOTAL_DAILY_REPORTER_410 is new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER, 0); 


package DS_DF_ISS_TOTAL_DF_ISS_TOTALIZER_352 is new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER, 0); 


package DS_DF_ISS_TOTAL_DAILY_REPORTER_410 is new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER, 0); 


package DS_JET_RCPT_TOTAL_JET_RCPT_TOTALIZER_280 is new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER, 0); 


package DS_JET_RCPT_TOTAL_DAILY_REPORTER_410 is new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER, 0): 


package DS_MG_RCPT_TOTAL_MG_RCPT_TOTALIZER_277 is new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER, 0); 


package DS_MG_RCPT_TOTAL_DAILY_REPORTER_410 is new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER, 0): 


package DS_DF_RCPT_TOTAL_DF_RCPT_TOTALIZER_274 is new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER, 0); 


package DS_DF_RCPT_TOTAL_DAILY_REPORTER_410 is new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER, 0); 


package DS_OTH_RCPT_ENABLE_BULK_RCPT_PROCESSOR_198 is new 
PSDL_STREAMS.STATE_VARIABLE(BOOLEAN, false); 


package DS_OTH_RCPT_ENABLE_RCPT_PROCESSOR_210 is new 
PSDL_STREAMS.STATE_VARIABLE(BOOLEAN, false); 


package DS_BULK_RCPT_ENABLE_OTH_RCPT_PROCESSOR_207 is new 
PSDL_STREAMS.STATE_VARIABLE(BOOLEAN, false); 


package DS_BULK_RCPT_ENABLE_RCPT_PROCESSOR_?210 is new 
PSDL_STREAMS.STATE_VARIABLE(BOOLEAN, false); 


package DS_BULK_ISS_ENABLE_OTH_ISS_PROCESSOR_ 307 is new 
PSDL_STREAMS.STATE_VARIABLE(BOOLEAN, false); 


package DS_BULK_ISS_ENABLE_ISS_PROCESSOR_323 is new 
PSDL_STREAMS.STATE_VARIABLE(BOOLEAN, false); 


package DS_OTH_ISS_ENABLE_BULK_ISS_PROCESSOR_310 is new 
PSDL_STREAMS.STATE_VARIABLE(BOOLEAN, false); 


package DS_OTH_ISS_ENABLE_ISS_PROCESSOR_323 is new 
PSDL_STREAMS.STATE_VARIABLE(BOOLEAN, false); 
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package DS_MO_ISS_JET_TOTAL_MO_JET_ISS_TOTALIZER_598 is new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER, 0); 


package DS_MO_ISS_JET_TOTAL_MONTHLY_REPORTER_601 is new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER, 0); 


package DS_MO_ISS_MG_TOTAL_MO_MG_ISS_TOTALIZER_595 is new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER, 0); 


package DS_MO_ISS_MG_TOTAL_MONTHLY_REPORTER_601 is new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER, 0); 


package DS_MO_ISS_DF_TOTAL_MO_DF_ISS_TOTALIZER_592 is new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER, 0); 


package DS_MO_ISS_DF_TOTAL_MONTHLY_REPORTER_601 is new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER, 0); 


package DS_MO_RCPT_JET_TOTAL_MO_JET_RCPT_TOTALIZER_589 is new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER, 0): 


package DS_MO_RCPT_JET_TOTAL_MONTHLY_REPORTER_601 is new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER, 0); 


package DS_MO_RCPT_MG_TOTAL_MO_MG_RCPT_TOTALIZER_586 is new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER, 0); 


package DS_ MO_RCPT_MG_TOTAL_MONTHLY_REPORTER_601 is new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER, 0): 


package DS_MO_RCPT_DF_TOTAL_MO_DF_RCPT_TOTALIZER_583 is new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER, 0); 


package DS_MO_RCPT_DF_TOTAL_MONTHLY_REPORTER_601 is new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER, 0); 


package DS_TOTAL_MO_DF_ISS_DF_ACCT_CALC_952 is new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER, 0); 


package DS_TOTAL_MO_DF_RCPT_DF_ACCT_CALC_952 is new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER, 0); 


package DS_TOTAL_MO_MG_ISS_MG_ACCT_CALC_955 is new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER, 0); 


package DS_TOTAL_MO_MG_RCPT_MG_ACCT_CALC_955 is new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER, 0); 


package DS_TOTAL_MO_JET_ISS_JET_ACCT_CALC_958 is new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER, 0); 


package DS_TOTAL_MO_JET_RCPT_JET_ACCT_CALC_958 is new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER, 0); 


package DS_OPENING_INV_DIESEL_DF_ACCT_CALC_952 is new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER, 0); 


he 


package DS_OPENING_INV_MOGAS_MG_ACCT_CALC_955 is new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER, 0); 


package DS_OPENING_INV_JET_JET_ACCT_CALC_958 is new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER, 0); 


package DS_DF_QTY_ON_HAND_DIESEL_GAGE_ 854 is new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER, 0); 


package DS_DIESEL_VOLUME_DIESEL_ADDITION_836 is new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER, 0); 


package DS_DIESEL_VOLUME_DIESEL_SUBTRACTION_ 839 is new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER, 0); 


end FUEL_SUBSYSTEM_1_STREAMS; 


package FUEL_SUBS YSTEM_1_DRIVERS is 
procedure GUI_LBULK_RECEIPT_3_DRIVER; 
procedure GUILOTHER_RECEIPT_6_DRIVER; 
procedure GUI_BULK_ISSUE_9_DRIVER; 
procedure GUI_LOTHER_ISSUE_12_DRIVER; 
procedure GUI_LFUEL_ON_HAND_124_DRIVER; 
procedure GUI_ACC_OFFICER_179_DRIVER; 
procedure JET_GAGE_917_DRIVER; 
procedure JET_SUBTRACTION_914_DRIVER; 
procedure JET_ADDITION_911_DRIVER; 
procedure MOGAS_ADDITION_888_DRIVER; 
procedure MOGAS_SUBTRACTION_891_DRIVER; 
procedure MOGAS_GAGE_894_DRIVER; 
procedure OTHER_ISS_DB_TABLE_504_DRIVER; 
procedure OTHER_RCPT_DB_TABLE_501_DRIVER; 
procedure BULK_ISS_DB_TABLE_498_ DRIVER; 
procedure BULK_RCPT_DB_TABLE_495_DRIVER; 
procedure DAILY_REPORTER_410_DRIVER; 
procedure DF_ISS_TOTALIZER_352_DRIVER; 
procedure MG_ISS_TOTALIZER_349_DRIVER; 
procedure JETISS_TOTALIZER_346_DRIVER; 
procedure JET_RCPT_TOTALIZER_280_DRIVER; 
procedure MG_RCPT_TOTALIZER_277_DRIVER; 
procedure DF_RCPT_TOTALIZER_274_DRIVER; 
procedure BULK_RCPT_PROCESSOR_198_DRIVER; 
procedure OTH_RCPT_PROCESSOR_207_DRI VER; 
procedure RCPT_PROCESSOR_210_DRIVER; 
procedure OTH_ISS_PROCESSOR_307_DRIVER; 
procedure BULK_ISS_PROCESSOR_310_DRIVER; 
procedure ISS_PROCESSOR_323_DRIVER; 
procedure DAILY_ISS_DB_TABLE_743_DRIVER; 
procedure DAILY_RCPT_DB_TABLE_740_DRIVER; 
procedure MONTHLY_REPORTER_601_DRIVER; 
procedure MO_JET_ISS_TOTALIZER_598_DRIVER; 
procedure MO_MG_ISS_TOTALIZER_595_DRIVER; 
procedure MO_DF_ISS_TOTALIZER_592_ DRIVER; 
procedure MO_JET_RCPT_TOTALIZER_589_DRIVER; 
procedure MO_MG_RCPT_TOTALIZER_586_DRIVER; 
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procedure MO_DF_RCPT_TOTALIZER_583_DRIVER; 
procedure DIESEL_ISS_ACCT_PROC_934_DRIVER; 
procedure DIESEL_RCPT_ACCT_PROC_937_DRIVER; 
procedure MOGAS_ISS_ACCT_PROC_940_DRIVER; 
procedure MOGAS_RCPT_ACCT_PROC_943_ DRIVER; 
procedure JET_ISS_ACCT_PROC_946_DRIVER; 
procedure JET_RCPT_ACCT_PROC_949_DRIVER; 
procedure DF_ACCT_CALC_952_DRIVER; 
procedure MG_ACCT_CALC_955_DRIVER; 
procedure JET_.ACCT_CALC_958_DRIVER; 
procedure DIESEL_GAGE_854_DRIVER; 
procedure DIESEL_SUBTRACTION_839_DRIVER; 
procedure DIESEL_ADDITION_836_DRIVER; 

end FUEL_SUBS YSTEM_1i_DRIVERS; 


-- with/use clauses for atomic components. 
with TEXT _STRING_PKG; use TEXT_STRING_PKG;: 
with OTHER_ISS_DB_TABLE_504_PKG; use OTHER_ISS_DB_TABLE_504_PKG; 
with OTHER_RCPT_DB_TABLE_501_PKG; use OTHER_RCPT_DB_TABLE_501_PKG; 
with BULK_ISS_DB_TABLE_498_PKG; use BULK_ISS_DB_TABLE_498_PKG; 
with BULK_RCPT_DB_TABLE _495_PKG; use BULK_RCPT_DB_TABLE _495_PKG; 
with DAILY_REPORTER_410_PKG; use DAILY_REPORTER_410_PKG; 
with DF_ISS_TOTALIZER_352_PKG; use DF_ISS_TOTALIZER_352_PKG; 
with MG_ISS_TOTALIZER_349_PKG; use MG_ISS_TOTALIZER_349_PKG; 
with JET_ISS_TOTALIZER_346_PKG; use JET_ISS_TOTALIZER_346_PKG; 
with JET_RCPT_TOTALIZER_280_PKG; use JET_RCPT_TOTALIZER_280_PKG; 
with MG_RCPT_TOTALIZER_277_PKG; use MG_RCPT_TOTALIZER_277_PKG; 
with DF_RCPT_TOTALIZER_274_PKG; use DF_RCPT_TOTALIZER_274_PKG; 
with BULK_RCPT_PROCESSOR_198_PKG; use BULK_RCPT_PROCESSOR_198_PKG; 
with OTH_RCPT_PROCESSOR_207_PKG; use OTH_RCPT_PROCESSOR_207_PKG; 
with RCPT_PROCESSOR_210_PKG; use RCPT_PROCESSOR_210_PKG; 
with OTH_ISS_PROCESSOR_307_PKG; use OTH_ISS_PROCESSOR_307_PKG; 
with BULK_ISS_PROCESSOR_310_PKG; use BULK_ISS_PROCESSOR_310_PKG; 
with ISS_PROCESSOR_323_PKG; use ISS_PROCESSOR_323_PKG; 
with JET_GAGE_917_PKG; use JET_GAGE_917_PKG; 
with JET_SUBTRACTION_914_PKG; use JET_SUBTRACTION_914_PKG; 
with JET_ADDITION_911_PKG; use JET_ADDITION_911_PKG; 
with MOGAS_ADDITION_888_PKG; use MOGAS_ADDITION_888_PKG; 
with MOGAS_SUBTRACTION_891_PKG; use MOGAS_SUBTRACTION_891_PKG; 
with MOGAS_GAGE_894_PKG; use MOGAS_GAGE_894_PKG; 
with GUI_LBULK_RECEIPT_3_PKG; use GUI_LBULK_RECEIPT_3_PKG; 
with GUILOTHER_RECEIPT_6_PKG; use GUILOTHER_RECEIPT_6_PKG; 
with GUI_BULK_ISSUE_9_PKG; use GUI_LBULK_ISSUE_9_PKG; 
with GUI_OTHER_ISS UE_12_PKG; use GUILOTHER_ISSUE_12_PKG; 
with DAILY_ISS_DB_TABLE_743_PKG; use DAILY_ISS_DB_TABLE_743_PKG; 
with DAILY_RCPT_DB_TABLE_740_PKG; use DAILY_RCPT_DB_TABLE_740_PKG, 
with MONTHLY_REPORTER_601_PKG; use MONTHLY_REPORTER_601_PKG; 
with MO_JET_ISS_TOTALIZER_598_PKG; use MO_JET_ISS_TOTALIZER_598_PKG; 
with MO_MG_ISS_TOTALIZER_595_PKG; use MO_MG_ISS_TOTALIZER_595_PKG; 
with MO_DF_ISS_TOTALIZER_592_PKG; use MO_DF_ISS_TOTALIZER_592_PKG; 
with MO_JET_RCPT_TOTALIZER_589_PKG; use MO_JET_RCPT_TOTALIZER_589_PKG; 
with MO_MG_RCPT_TOTALIZER_586_PKG; use MO_MG_RCPT_TOTALIZER_586_PKG; 
with MO_DF_RCPT_TOTALIZER_583_PKG; use MO_DF_RCPT_TOTALIZER_583_PKG; 
with DIESEL_ISS_ACCT_PROC_934_PKG; use DIESEL_ISS_ACCT_PROC_934_PKG; 
with DIESEL_RCPT_ACCT_PROC_937_PKG; use DIESEL_RCPT_ACCT_PROC_937_PKG; 
with MOGAS_ISS_ACCT_PROC_940_PKG; use MOGAS_ISS_ACCT_PROC_940_PKG; 
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with MOGAS_RCPT_ACCT_PROC_943_PKG; use MOGAS_RCPT_ACCT_PROC_943_PKG; 
with JET_ISS_ACCT_PROC_946_PKG; use JET_ISS_ACCT_PROC_946_PKG; 
with JET_RCPT_ACCT_PROC_949_ PKG; use JET_RCPT_ACCT_PROC_949_PKG;: 
with DF_ACCT_CALC_952_PKG; use DF_ACCT_CALC_952_ PKG; 
with MG_ACCT_CALC_955_PKG; use MG_ACCT_CALC_955_PKG; 
with JET_ACCT_CALC_958_PKG; use JET_ACCT_CALC_958 PKG; 
with GUI_FUEL_ON_HAND_124_PKG; use GUILFUEL_ON_HAND_124_ PKG; 
with GUI_LACC_OFFICER_179_PKG; use GUI_LACC_OFFICER_179_PKG; 
with DIESEL_GAGE_854_PKG; use DIESEL_GAGE_854_PKG; 
with DIESEL_SUBTRACTION_839_PKG; use DIESEL_SUBTRACTION_839_PKG; 
with DIESEL_ADDITION_836_PKG; use DIESEL_ADDITION_836_PKG; 
-- with/use clauses for generated packages. 
with FUEL_SUBS YSTEM_1_EXCEPTIONS; use FUEL_SUBS YSTEM_1_EXCEPTIONS; ] 
with FUEL_SUBS YSTEM_1_STREAMS; use FUEL_SUBSYSTEM_1_STREAMS; 
with FUEL_SUBS YSTEM_1_TIMERS; use FUEL_SUBSYSTEM_1_TIMERS; 
with FUEL_SUBS YSTEM_1_INSTANTIATIONS; use FUEL_SUBS YSTEM_1_INSTANTIATIONS; 
-- with/use clauses for CAPS library packages. 
with DS_DEBUG_PKG; use DS_DEBUG_PKG; 
with PSDL_STREAMS; use PSDL_STREAMS; 
with PSDL_TIMERS; 
package body FUEL_SUBS YSTEM_1_DRIVERS is 


procedure GUI_BULK_RECEIPT_3_DRIVER is 
LV_BULK_RCPT_FUEL_TYPE : INTEGER: 
LV_BULK_RCPT_DOC_NUMBER : TEXT_STRING_PKG.TEXT_STRING; 
LV_BULK_RCPT_QTY : INTEGER: 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 


-- Data stream reads. 


-- Execution trigger condition check. 
if True then 
begin 
GUL_BULK_RECEIPT_3( 
BULK_RCPT_FUEL_TYPE => LV_BULK_RCPT_FUEL_ TYPE, 
BULK_RCPT_DOC_NUMBER => LV_BULK_RCPT_DOC_NUMBER, 
BULK_RCPT_QTY => LV_BULK_RCPT_QTY); 
excepuion 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("GUI_BULK_RECEIPT_3"); 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
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begin 


DS_BULK_RCPT_FUEL_TYPE_RCPT_PROCESSOR_210.BUFFER.WRITE(LV_BULK_RCPT_FUEL 
_TYPE); 

exception 

when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("BULK_RCPT_FUEL_TYPE_RCPT_PROCESSOR_7210", 

"GUI_BULK_RECEIPT_3"); 

end; 

begin 


DS_BULK_RCPT_FUEL_TYPE_BULK_RCPT_PROCESSOR_198.BUFFER.WRITE(LV_BULK_RCP 
T_FUEL_TYPE); 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG.BUFFER_OVERFLOW("BULK_RCPT_FUEL_TYPE_BULK_RCPT_PROCESSOR_198", 
"GUL BULK_RECEIPT_3"); 

end; 

begin 


DS_BULK_RCPT_FUEL_TYPE_BULK_RCPT_DB_TABLE_495.BUFFER.WRITE(LV_BULK_RCPT_ 
FUEL_TYPE); 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG.BUFFER_OVERFLOW("BULK_RCPT_FUEL_TYPE_BULK_RCPT_DB_TABLE_495", 
"GUIL_BULK_RECEIPT_3"); 
end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 


DS_BULK_RCPT_DOC_NUMBER_BULK_RCPT_DB_TABLE_495.BUFFER.WRITE(LV_BULK_RC 
PT_DOC_NUMBER); 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG.BUFFER_OVERFLOW("BULK_RCPT_DOC_NUMBER_BULK_RCPT_DB_TABLE 495 
","GUL_BULK_RECEIPT_3"); 
end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_BULK_RCPT_QTY_RCPT_PROCESSOR_210.BUFFER.WRITE(LV_BULK_RCPT_QTY); 
exception 
when BUFFER OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("BULK_RCPT_QTY_RCPT_PROCESSOR_210", 
"GUI_BULK_RECEIPT_3"); 
end; 
begin 


DS_BULK_RCPT_QTY_BULK_RCPT_PROCESSOR_198.BUFFER.WRITE(LV_BULK_RCPT_QTY); 


exception ; 
when BUFFER_OVERFLOW => 
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DS_DEBUG.BUFFER_OVERFLOW("BULK_RCPT_QTY_BULK_RCPT_PROCESSOR_ 198", 
"GUIL_BULK_RECEIPT_3"); 
end; 
begin 





DS_BULK_RCPT_QTY_BULK_RCPT_DB_TABLE _495.BUFFER.WRITE(LV_BULK_RCPT_QTY); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("BULK_RCPT_QTY_BULK_RCPT_DB_TABLE _ 495", 
"GUI_BULK_RECEIPT_3"); 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"GUI_BULK_RECEIPT_3", 
PSDL_EXCEPTION IMAGE(EXCEPTION_ID)); 
end if; 
end GUI_BULK_RECEIPT_3_DRIVER; 


procedure GUI_OTHER_RECEIPT_6_DRIVER is 
LV_OTH_RCPT_QTY : INTEGER; 
LV_OTH_RCPT_SOURCE_UNIT : TEXT_STRING_PKG.TEXT_STRING; 
LV_OTH_RCPT_FUEL_TYPE : INTEGER; 
LV_OTH_RCPT_SOURCE_ID : TEXT_STRING_PKG.TEXT_STRING; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 


-- Data stream reads. 


-- Execution trigger condition check. 
if True then 
begin 
GUI_OTHER_RECEIPT_6( 
OTH_RCPT_QTY => LV_OTH_RCPT_OQTY, 
OTH_RCPT_SOURCE_UNIT => LV_OTH_RCPT_SOURCE_UNIT, 
OTH_RCPT_FUEL_TYPE => LV_OTH_RCPT_FUEL_TYPE, 
OTH_RCPT_SOURCE_ID => LV_OTH_RCPT_SOURCE_ID); 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("GUI_OTHER_RECEIPT_6"); 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 


-- Other constraint option translations. 
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--Unconditional output translations. 
if not EXCEPTION_HAS_ OCCURRED then 
begin 
DS_OTH_RCPT_QTY_RCPT_PROCESSOR_210.BUFFER.WRITE(LV_OTH_RCPT_QTY); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("OTH_RCPT_QTY_RCPT_PROCESSOR_210", 
"GUI_OTHER_RECEIPT_6"); 
end; 
begin 


DS_OTH_RCPT_QTY_OTH_RCPT_PROCESSOR_207.BUFFER.WRITE(LV_OTH_RCPT_QTY); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("OTH_RCPT_QTY_OTH_RCPT_PROCESSOR_207", 
"GUI_OTHER_RECEIPT_6"); 
end; 
begin 


DS_OTH_RCPT_QTY_OTHER_RCPT_DB_TABLE_501.BUFFER.WRITE(LV_OTH_RCPT_QTY); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("OTH_RCPT_QTY_OTHER_RCPT_DB_TABLE_501", 
"GUI_LOTHER_RECEIPT_6"); 
end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 


DS_OTH_RCPT_SOURCE_UNIT_OTHER_RCPT_DB_TABLE_501.BUFFER.WRITE(LV_OTH_RCP 
T_SOURCE_UNIT); 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG.BUFFER_OVERFLOW("OTH_RCPT_SOURCE_UNIT_OTHER_RCPT_DB_TABLE_501 
"."GUI_OTHER_RECEIPT_6"); 
end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 


DS_OTH_RCPT_FUEL_TYPE_RCPT_PROCESSOR_210.BUFFER.WRITE(LV_OTH_RCPT_FUEL_T . 
YPE); 

exception 

when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("OTH_RCPT_FUEL_TYPE_RCPT_PROCESSOR_ 210", 

"“GUI_LOTHER_RECEIPT_6"); 

end; 

begin 


DS_OTH_RCPT_FUEL_TYPE_OTH_RCPT_PROCESSOR_207.BUFFER.WRITE(LV_OTH_RCPT_FU 
EL_TYPE); 
exception 
when BUFFER_OVERFLOW => 
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DS_DEBUG.BUFFER_OVERFLOW("OTH_RCPT_FUEL_TYPE_OTH_RCPT_PROCESSOR_207", 
"GUI_LOTHER_RECEIPT_6"); 

end; 

begin 


DS_OTH_RCPT_FUEL_TYPE_OTHER_RCPT_DB_TABLE_501.BUFFER.WRITE(LV_OTH_RCPT_F 
UELZ TY PE); 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG.BUFFER_OVERFLOW(“OTH_RCPT_FUEL_TYPE_OTHER_RCPT_DB_TABLE_ 501", 
"GUI_OTHER_RECEIPT_6"); 
end; 
end if; 
if not EXCEPTION_HAS_ OCCURRED then 
begin 


DS_OTH_RCPT_SOURCE_ID_OTHER_RCPT_DB_TABLE_501.BUFFER.WRITE(LV_OTH_RCPT_S 
OURCE_ID); 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG.BUFFER_OVERFLOW("“OTH_RCPT_SOURCE_ID_OTHER_RCPT_DB_TABLE_501", 
"“GUI_OTHER_RECEIPT_6");: 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"GUI_LOTHER_RECEIPT_6", 
PSDL_EXCEPTION'IMAGE(EXCEPTION_ID)); 
end if; 
end GUIL_OTHER_RECEIPT_6_DRIVER; 


procedure GUI_LBULK_ISSUE_9_DRIVER is 
LV_BULK_RCV_UNIT : TEXT_STRING_PKG.TEXT_STRING; 
LV_BULK_ISS_DOC_NUM : TEXT_STRING_PKG.TEXT_STRING; 
LV_BULK_RCV_NAME : TEXT_STRING_PKG.TEXT_STRING; 
LV_BULK_ISS_QTY : INTEGER; 
LV_BULK_ISS_FUEL_TYPE : INTEGER; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 


-- Data stream reads. 


-- Execution trigger condition check. 
if True then 
begin 
GUI_BULK_ISSUE_9( 
BULK_RCV_UNIT => LV_BULK_RCV_UNIT, 
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BULK_ISS_DOC_NUM => LV_BULK_ISS_DOC_NUM, 
BULK_RCV_NAME => LV_BULK_RCV_NAME, 
BULK_ISS_QTY => LV_BULK_ISS_QTY, 
BULK_ISS_FUEL_TYPE => LV_BULK_ISS_FUEL_TYPE); 
exception 
when others => 
DS_DEBUG.UNDECLARED_ EXCEPTION("GUL_BULK_ISS UE_9"); 
EXCEPTION_HAS OCCURRED := true: 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_ OCCURRED then 
begin 


DS_BULK_RCV_UNIT_BULK_ISS_DB_TABLE_498.BUFFER.WRITE(LV_BULK_RCV_UNIT); 
exception 7 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("BULK_RCV_UNIT_BULK_ISS_DB_TABLE_ 498", 
"GUI_BULK_ISSUE_9"); 
end; 
end if; 
if not EXCEPTION_HAS_ OCCURRED then 
begin 


DS_BULK_ISS_DOC_NUM_BULK_ISS_DB_TABLE_498.BUFFER.WRITE(LV_BULK_ISS_DOC_N 
UM); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("BULK_ISS_-DOC_NUM_BULK_ISS_DB_TABLE_ 498", 
"GUIL_BULK_ISSUE_9"); 
end; 
end if; 
if not EXCEPTION HAS OCCURRED then 
begin 


DS_BULK_RCV_NAME_BULK_ISS_DB_TABLE_498.BUFFER.WRITE(LV_BULK_RCV_NAMEB); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("BULK_RCV_NAME_BULK_ISS_DB_TABLE_ 498", 
"GUI_BULK_ISSUE_9"); 
end; 
end if; 
if not EXCEPTION HAS OCCURRED then 
begin 
DS_BULK_ISS_QTY_ISS_PROCESSOR_323.BUFFER.WRITE(LV_BULK_ISS_QTY); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("BULK_ISS_QTY_ISS_PROCESSOR_ 323", 
"GUI_BULK_ISSUE_9"); 
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end; 
begin 
DS_BULK_ISS_QTY_BULK_ISS_PROCESSOR_310.BUFFER.WRITE(LV_BULK_ISS_QTY); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("BULK_ISS_QTY_BULK_ISS_PROCESSOR_ 310", 
"GUI_BULK_ISS UE_9"); 
end; 
begin 
DS_BULK_ISS_QTY_BULK_ISS_DB_TABLE_498.BUFFER.WRITE(LV_BULK_ISS_QTY); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("BULK_ISS_QTY_BULK_ISS_DB_TABLE_498", 
"“GUI_BULK_ISSUE_9"); 
end; 
end if; 
if not EXCEPTION_HAS_ OCCURRED then 
begin 


DS_BULK_ISS_FUEL_TYPE_ISS_PROCESSOR_323.BUFFER.WRITE(LV_BULK_ISS_FUEL_TYPE 
Ds 

exception 

when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("BULK_ISS_FUEL_TYPE_ISS_PROCESSOR_ 323", 

"GUI_BULK_ISSUE_9"); 

end; 

begin 


DS_BULK_ISS_FUEL_TYPE_BULK_ISS_PROCESSOR_310.BUFFER.WRITE(LV_BULK_ISS_FUEL 
_TYPE); 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG.BUFFER_OVERFLOW("BULK_ISS_FUEL_TYPE_BULK_ISS_PROCESSOR_310", 
"GUI_BULK_ISSUE_9"); 

end; 

begin 


DS_BULK_ISS_FUEL_TYPE_BULK_ISS_DB_TABLE_498.BUFFER.WRITE(LV_BULK_ISS_FUEL_ 
TYPE); 

exception 

when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("BULK_ISS_FUEL_TYPE_BULK_ISS_DB_TABLE_498", 

"GUI_BULK_ISSUE_9"); 

end; 

end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_ OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"GUI_BULK_ISS UE_9", 
PSDL_EXCEPTION'IMAGE(EXCEPTION_ID)); 
end if; 
end GUI_LBULK_ISSUE_9_DRIVER; 
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procedure GUI_LOTHER_ISSUE_12_DRIVER is 
LV_EQ_ISS_UNIT : TEXT_STRING_PKG.TEXT_STRING; 
LV_EQ_ISS_NAME : TEXT_STRING_PKG.TEXT_STRING; 
LV_EQ_ISS_FUEL_TYPE : INTEGER; 
LV_EQ_ISS_ID : TEXT_STRING_PKG.TEXT_STRING; 
LV_EQ_ISS_QTY : INTEGER; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 


-- Data stream reads. 


-- Execution trigger condition check. 
if True then 
begin 
GUI_OTHER_ISS UE_12( 
EQ_ISS_UNIT => LV_EQ_ISS_UNIT, 
EQ_ISS_NAME => LV_EQ_ISS_NAME, 
EQ_ISS_FUEL_TYPE => LV_EQ_ISS_FUEL_TYPE, 
EQ _ISS_ID => LV_EQ_ISS_ID, 
EQ_ISS_QTY => LV_EQ_ISS_QTY); 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("GUI_OTHER_ISSUE_12"); 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_EQ_ISS_UNIT_OTHER_ISS_DB_TABLE_504.BUFFER.WRITE(LV_EQ_ISS_UNIT); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("EQ_ISS_UNIT_OTHER_ISS_DB_TABLE_504", 
"GUI_OTHER_ISS UE_12"); 
end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_EQ_ISS_NAME_OTHER_ISS_DB_TABLE_504.BUFFER.WRITE(LV_EQ_ISS_NAME); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("EQ_ISS_NAME_OTHER_ISS_DB_TABLE_504", 
"“GUI_OTHER_ISS UE_12"); 
end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
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begin 


DS_EQ_ISS_FUEL_TYPE_ISS_PROCESSOR_323.BUFFER.WRITE(LV_EQ_ISS_FUEL_TYPE): 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("EQ_ISS_FUEL_TYPE_ISS_PROCESSOR_323", 
"GUI_OTHER_ISS VE_12"); 
end; 
begin 


DS_EQ_ISS_FUEL_TYPE_OTH_ISS_PROCESSOR_307.B UFFER.WRITE(LV_EQ _ISS_FUEL_TYPE) 


exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("EQ_ISS_FUEL_TYPE_OTH_ISS_PROCESSOR_307", 
"“GUI_OTHER_ISS UE_12"); 
end; 
begin 


DS_EQ_ISS_FUEL_TYPE_OTHER_ISS_DB_TABLE_504.BUFFER.WRITE(LV_EQ_ISS_FUEL_TYP 
E); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("EQ_ISS_FUEL_TYPE_OTHER_ISS_DB_TABLE_504", 
"GUI_OTHER_ISSUE_12"); 
end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_EQ_ISS_ID_OTHER_ISS_DB_TABLE_504.BUFFER.WRITE(LV_EQ_ISS_ID); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("EQ_ISS_ID_OTHER_ISS_DB_TABLE_504", 
“GUI_OTHER_ISSUE_12"); 
end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_EQ_ISS_QTY_ISS_PROCESSOR_323.BUFFER.WRITE(LV_EQ_ISS_QTY); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("EQ_ISS_QTY_ISS_PROCESSOR_323", 
“GUI_OTHER_ISSUE_12"); 
end; 
begin 
DS_EQ_ISS_QTY_OTH_ISS_PROCESSOR_307.BUFFER.WRITE(LV_EQ_ISS_QTY); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("EQ_ISS_QTY_OTH_ISS_PROCESSOR_307", 
"“GUI_OTHER_ISS UE_12"); 
end; 
begin 
DS_EQ_ISS_QTY_OTHER_ISS_DB_TABLE_504.BUFFER.WRITE(LV_EQ_ISS_QTY); 
exception 
when BUFFER_OVERFLOW => 
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DS_DEBUG.BUFFER_OVERFLOW("EQ_ISS_QTY_OTHER_ISS_DB_TABLE_504", 
"GUL OTHER_ISSUE_12"); 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG. UNHANDLED_EXCEPTION( 
"GUI_OTHER_ISSUE_12", 
PSDL_EXCEPTION IMAGE(EXCEPTION_ID)); 
end if; 
end GUI_LOTHER_ISSUE_12_DRIVER; 


procedure GUI_LFUEL_ON_HAND_124_DRIVER is 
LV_JET_QTY_AVAILABLE : INTEGER; 
LV_MOGAS_OTY_AVAILABLE : INTEGER: 
LV_DIESEL_QTY_AVAILABLE : INTEGER; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 


-- Data stream reads. 
begin 


DS_JET_QTY_AVAILABLE_GUI_FUEL_ON_HAND_124.BUFFER.READ(LV_JET_QTY_AVAILAB 
LE); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("JET_QTY_ AVAILABLE _ GUI_FUEL_ON_HAND_124", 
"GUI_LFUEL_ON_HAND_ 124"); 
end; 
begin 


DS_MOGAS_QTY_AVAILABLE_ GUI_FUEL_ON_HAND_124.BUFFER.READ(LV_MOGAS_QTY_ 
AVAILABLE); 
exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG.BUFFER_UNDERFLOW("MOGAS_QTY_AVAILABLE_GUI_LFUEL_ON_HAND_ 124", 
"GUI_FUEL_ON_HAND_ 124"); 

end; 

begin 


DS_DIESEL_QTY_AVAILABLE_GUI_FUEL_ON_HAND_124.BUFFER.READ(LV_DIESEL_QTY_A 
VAILABLE); 
exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG.BUFFER_UNDERFLOW("DIESEL_QTY_AVAILABLE GUI_FUEL_ON_HAND_ 124", 
"GUL FUEL_ON_HAND_ 124"); 
end; 


-- Execution trigger condition check. 
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if True then 
begin 
GUIL_FUEL_ON_HAND_ 124( 
JET_QTY_AVAILABLE => LV_JET_QTY_AVAILABLE, 
MOGAS_QTY_AVAILABLE => LV_MOGAS_QTY_AVAILABLE, 
DIESEL_QTY_AVAILABLE => LV_DIESEL_QTY_AVAILABLE): 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("GUI_FUEL_ON_HAND_ 124"): 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 
--Unconditional output translations. 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"GUI_LFUEL_ON_HAND_124", 
PSDL_EXCEPTION'IMAGE(EXCEPTION_ID)); 
end if; 
end GUI_LFUEL_ON_HAND_124_DRIVER; 


procedure GUI_ACC_OFFICER_179_DRIVER is 
LV_TOLERANCE_DF : BOOLEAN: 
LV_TOLERANCE_MG : BOOLEAN; 
LV_TOLERANCE_JET : BOOLEAN; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 


-- Data stream reads. 
begin 
DS_TOLERANCE_DF_GUI_ACC_OFFICER_179. BUFFER.READ(LV_TOLERANCE_DF); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("TOLERANCE_DF_GUI_ACC_OFFICER_179", 
"GUI_ACC_OFFICER_179"); 
end; 
begin 
DS_TOLERANCE_MG_GUI_ACC_OFFICER_179.BUFFER.READ(LV_TOLERANCE_MG); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("TOLERANCE_MG_GUI_ACC_OFFICER_179", 
"“GUI_ACC_OFFICER_179"); 
end; 
begin 
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DS_TOLERANCE_JET_GUI_ACC_OFFICER_179.BUFFER.READ(LV_TOLERANCE_JET); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("TOLERANCE_JET_GUI_ACC_OFFICER_179", 
"GUI_ACC_OFFICER_ 179"); 
end; 


-- Execution trigger condition check. 
if True then 
begin 
GUIL_ACC_OFFICER_179( 
TOLERANCE_DF => LV_TOLERANCE_DF, 
TOLERANCE_MG => LV_TOLERANCE_MG, 
TOLERANCE_JET => LV_TOLERANCE_JET); 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("GUI_ACC_OFFICER_ 179"); 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_ EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 
--Unconditional output translations. 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"GUI_ACC_OFFICER_179", 
PSDL_EXCEPTION 'IMAGE(EXCEPTION_ID)); 
end if; 
end GUI_LACC_OFFICER_179_DRIVER; 


procedure JET_GAGE_917_DRIVER is 
LV_JET_QTY_ON_HAND : INTEGER; 
LV_JET_QTY_AVAILABLE : INTEGER; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 
if not (DS_JET_QTY_ON_HAND_JET_GAGE_917.NEW_DATA) then 
retum; 
end if; 


-- Data stream reads. 
begin 
DS_JET_QTY_ON_HAND_JET_GAGE_917.BUFFER.READ(LV_JET_QTY_ON_HAND); 
exception 
when BUFFER_UNDERFLOW => 
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DS_DEBUG.BUFFER_UNDERFLOW("JET_QTY_ON_HAND_JET_GAGE _ 917", 
"JET_GAGE_917"); 
end: 


-- Execution tigger condition check. 
if True then 
begin 
JET_GAGE_917( 
JET_QTY_ON_HAND => LV_JET_QTY_ON_HAND, 
JET_QTY_AVAILABLE => LV_JET_QTY_AVAILABLE); 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("JET_GAGE_917"): 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 


DS_JET_QTY_AVAILABLE_JET_ACCT_CALC_958.BUFFER.WRITE(LV_JET_QTY_AVAILABLE) 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW(“JET_QTY_AVAILABLE_JET_ACCT_CALC_ 958", 
"JET_GAGE_917"); 
end; 
begin 


DS_JET_QTY_AVAILABLE_GUI_FUEL_ON_HAND_ 124. BUFFER.WRITE(LV_JET_QTY_AVAILA 
BLE); 

exception 

when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("“JET_QTY_AVAILABLE_GUI_FUEL_ON_HAND_124", 

"JET_GAGE_917"); 

end; 

end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_ OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"JET_GAGE_917", 
PSDL_EXCEPTION IMAGE(EXCEPTION_ID)); 
end if; 
end JET_GAGE_917_DRIVER; 


procedure JET_SUBTRACTION_914_DRIVER is 
LV_JET_ISS_QTY : INTEGER; 
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LV_JET_QTY_ON_HAND : INTEGER; 
LV_JET_VOLUME : INTEGER; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 
if not (DS_JET_ISS_QTY_JET_SUBTRACTION_914.NEW_DATA) then 
retum,; 
end if; 


-- Data stream reads. 
begin 
DS_JET_VOLUME_JET_SUBTRACTION_914.BUFFER.READ(LV_JET_VOLUME); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW ("JET_VOLUME_JET_SUBTRACTION_914", 
"JET_SUBTRACTION_914"); 
end; 
begin 
DS_JET_ISS_QTY_JET_SUBTRACTION_914.BUFFER.READ(LV_JET_ISS_QTY); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("JET_ISS_QTY_JET_SUBTRACTION_914", 
"JET_SUBTRACTION_ 914"); 
end; 


-- Execution trigger condition check. 
if True then 
begin 
JET_SUBTRACTION_914( 
JET_ISS_QTY => LV_JET_ISS_QTY, 
JET_QTY_ON_HAND => LV_JET_QTY_ON_HAND, 
JET_VOLUME => LV_JET_VOLUMEBE); 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("JET_SUBTRACTION_914"); 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_JET_QTY_ON_HAND_JET_GAGE_917.BUFFER.WRITE(LV_JET_QTY_ON_HAND); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("JET_QTY_ON_HAND_JET_GAGE_917", 
"JET_SUBTRACTION_9i4"); 
end; 
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end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_JET_VOLUME_JET_SUBTRACTION_914.BUFFER.WRITE(LV_JET_VOLUME); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("JET_VOLUME_JET_SUBTRACTION_914", 
"“JET_SUBTRACTION_914"); 
end; 
begin 
DS_JET_VOLUME_JET_ADDITION_911.BUFFER.WRITE(LV_JET_VOLUME); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW ("“JET_VOLUME_JET_ADDITION_911", 
"JET_SUBTRACTION_ 914"); 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"JET_SUBTRACTION_914", 
PSDL_EXCEPTION'IMAGE(EXCEPTION_ID)); 
end if; 
end JET_SUBTRACTION_914_DRIVER; 


procedure JET_ADDITION_911_DRIVER is 
LV_JET_RCPT_QTY : INTEGER; 
LV_JET_QTY_ON_HAND : INTEGER; 
LV_JET_VOLUME : INTEGER; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 
if not (DS_JET_RCPT_QTY_JET_ADDITION_911.NEW_DATA) then 
return; 
end if; 


-- Data stream reads. 
begin 
DS_JET_VOLUME_JET_ADDITION_911.BUFFER.READ(LV_JET_VOLUME); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("“JET_VOLUME_JET_ADDITION_911", 
"JET_ADDITION_911"); 
end; 
begin 
DS_JET_RCPT_QTY_JET_ADDITION_911.BUFFER.READ(LV_JET_RCPT_QTY); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("JET_RCPT_QTY_JET_ADDITION_911", 
"JET_ADDITION_911"); 
end; 
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-- Execution tigger condition check. 
if True then 
begin 
JET_ADDITION_911( 
JET_RCPT_QTY => LV_JET_RCPT_QTY, 
JET_QTY_ON_HAND => LV_JET_QTY_ON_HAND, 
JET_VOLUME => LV_JET_VOLUME); 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("JET_ADDITION_ 911"); 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_JET_QTY_ON_HAND_JET_GAGE_917.BUFFER.WRITE(LV_JET_QTY_ON_HAND); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("“JET_QTY_ON_HAND_JET_GAGE_917", 
"JET_ADDITION_911"); : 
end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_JET_VOLUME_JET_SUBTRACTION_914.BUFFER.WRITE(LV_JET_VOLUME); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("JET_VOLUME_JET_SUBTRACTION_914", 
"JET_ADDITION_911"); 
end; 
begin 
DS_JET_VOLUME_JET_ADDITION_911.BUFFER.WRITE(LV_JET_VOLUME); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("“JET_VOLUME_JET_ADDITION_911", 
"JET_ADDITION_911"); 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"JET_ADDITION_911", 
PSDL_EXCEPTION IMAGE(EXCEPTION_ID)); 
end if; 
end JET_ADDITION_911_DRIVER; 


kei) 


procedure MOGAS_ADDITION_888_DRIVER is 
LV_MOGAS_RCPT_QTY : INTEGER; 
LV_MOGAS_VOLUME : INTEGER; 
LV_MG_QTY_ON_HAND : INTEGER; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 
if not (DS_MOGAS_RCPT_QTY_MOGAS_ADDITION_888.NEW_DATA) then 
retum; 
end if; 


-- Data stream reads. 
begin 


DS_MOGAS_RCPT_QTY_MOGAS_ADDITION_888.BUFFER.READ(LV_MOGAS_RCPT_QTY); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("MOGAS_RCPT_QTY_MOGAS_ADDITION_8&88", 
"MOGAS_ADDITION_888"); 
end; 
begin 
DS_MOGAS_VOLUME_MOGAS_ADDITION_888.BUFFER.READ(LV_MOGAS_VOLUME); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("MOGAS_VOLUME_MOGAS_ADDITION_ 888", 
"MOGAS_ADDITION_888"); 
end; 


-- Execution trigger condition check. 
if True then 
begin 
MOGAS_ADDITION_888( 
MOGAS_RCPT_QTY => LV_MOGAS_RCPT_QTY, 
MOGAS_VOLUME => LV_MOGAS_VOLUME, 
MG_QTY_ON_HAND => LV_MG_QTY_ON_HAND); 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("MOGAS_ADDITION_ 888"); 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 
--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 


DS_MOGAS_VOLUME_MOGAS_SUBTRACTION_891.BUFFER.WRITE(LV_MOGAS_VOLUME); 
exception 
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when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("MOGAS_VOLUME_MOGAS_SUBTRACTION_ 891", 
"MOGAS_ADDITION_ 888"); 
end; 
begin 
DS_MOGAS_VOLUME_MOGAS_ADDITION_888.BUFFER.WRITE(LV_MOGAS_VOLUMEB); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("MOGAS_VOLUME_MOGAS_ADDITION_ 888", 
"MOGAS_ADDITION_ 888"); 
end; 
end 1f; 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_MG_QTY_ON_HAND_MOGAS_GAGE_894.BUFFER.WRITE(LV_MG _QTY_ON_HAND); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("MG_QTY_ON_HAND_MOGAS_GAGE_ 894", 
"MOGAS_ADDITION_888"); 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"MOGAS_ADDITION_ 888", 
PSDL_EXCEPTION' IMAGE(EXCEPTION_ID)); 
end if; 
end MOGAS_ADDITION_888_DRIVER; 


procedure MOGAS_SUBTRACTION_891_DRIVER is 
LV_MOGAS_ISS_QTY : INTEGER; 
LV_MOGAS_VOLUME : INTEGER; 
LV_MG_QTY_ON_HAND : INTEGER; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 
if not (DS_MOGAS_ISS_QTY_MOGAS_SUBTRACTION_891.NEW_DATA) then 
retum; 
end if; 


-- Data stream reads. 
begin 


DS_MOGAS_ISS_QTY_MOGAS_SUBTRACTION_891.BUFFER.READ(LV_MOGAS_ISS_QTY); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("MOGAS_ISS_QTY_MOGAS_SUBTRACTION_ 891", 
"MOGAS_SUBTRACTION_891"); 
end; 
begin 


DS_MOGAS_VOLUME_MOGAS_SUBTRACTION_891.BUFFER.READ(LV_MOGAS_VOLUME); 
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exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("MOGAS_VOLUME_MOGAS_SUBTRACTION_ 891", 
"MOGAS_SUBTRACTION_891"); 


end: 


-- Execution trigger condition check. 
if True then 
begin 
MOGAS_SUBTRACTION_891( 
MOGAS_ISS_QTY => LV_MOGAS_ISS_QTY, 
MOGAS_VOLUME => LV_MOGAS_VOLUME, 
MG_QTY_ON_HAND => LV_MG_QTY_ON_HAND); 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("MOGAS_SUBTRACTION_891"); 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 


begin 


DS_MOGAS_VOLUME_MOGAS_SUBTRACTION_891.BUFFER.WRITE(LV_MOGAS_VOLUME); 


exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER ee WUNOONS.. VOLUME_MOGAS_SUBTRACTION_891", 
"MOGAS_SUBTRACTION_891"); 
end; 
begin 
DS_MOGAS_VOLUME_MOGAS_ADDITION_888.BUFFER.WRITE(LV_MOGAS_VOLUME); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("MOGAS_VOLUME_MOGAS_ADDITION_888", 
“"MOGAS_SUBTRACTION_891"); 
end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_MG_QTY_ON_HAND_MOGAS_GAGE_894.BUFFER.WRITE(LV_MG_QTY_ON_HAND); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("MG_QTY_ON_HAND_MOGAS_GAGE_ 894", 
"MOGAS_SUBTRACTION_891"); 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
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DS_DEBUG.UNHANDLED_EXCEPTION( 
"MOGAS_SUBTRACTION_ 891", 
PSDL_EXCEPTION'IMAGE(EXCEPTION_ID)); 

end if; 
end MOGAS_SUBTRACTION_891_DRIVER: 


procedure MOGAS_GAGE_894_DRIVER is 
LV_MG_QTY_ON_HAND : INTEGER; 
LV_MOGAS_QTY_AVAILABLE : INTEGER; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 
if not (DS_MG_QTY_ON_HAND_MOGAS_GAGE_894.NEW_DATA) then 
return; 
end if; 


-- Data stream reads. 
begin 
DS_MG_QTY_ON_HAND_MOGAS_GAGE_894.BUFFER.READ(LV_MG_QTY_ON_HAND); 
exception : 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("MG_QTY_ON_HAND_MOGAS_GAGE_ 894", 
"MOGAS_GAGE_ 894"); 
end; 


-- Execution trigger condition check. 
if True then 
begin 
MOGAS_GAGE_894( 
MG_QTY_ON_HAND => LV_MG_QTY_ON_HAND, 
MOGAS_QTY_AVAILABLE => LV_MOGAS_QTY_AVAILABLE); 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("MOGAS_GAGE_ 894"); 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION _HAS_ OCCURRED then 


begin 


DS_MOGAS_QTY_AVAILABLE MG_ACCT_CALC_955.BUFFER.WRITE(LV_MOGAS_QTY_AVA 


ILABLE); 
exception 
when BUFFER_OVERFLOW => 
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DS_DEBUG.BUFFER_OVERFLOW("“MOGAS_QTY_AVAILABLE_ MG ACCT _CALC_ 955", 
"MOGAS_GAGE_ 894"); 
end; 
begin 


DS_MOGAS_QTY_AVAILABLE_GUI_FUEL_ON_HAND_124.BUFFER.WRITE(LV_MOGAS_QTY_ 
AVAILABLE); 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG.BUFFER_OVERFLOW("MOGAS_QTY_AVAILABLE_GUI_FUEL_ON_HAND_ 124", 
"MOGAS_GAGE_894"); 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
“"MOGAS_GAGE_ 894", 
PSDL_EXCEPTION IMAGE(EXCEPTION_ID)): 
end if; 
end MOGAS_GAGE_894_DRIVER; 


procedure OTHER_ISS_DB_TABLE_504_DRIVER is 
LV_EQ_ISS_NAME : TEXT_STRING_PKG.TEXT_STRING; 
LV_EQ_ISS_UNIT : TEXT_STRING_PKG.TEXT_STRING; 
LV_EQ _ISS_ID : TEXT_STRING_PKG.TEXT_STRING; 
LV_EQ_ISS_QTY : INTEGER; 
LV_EQ_ISS_FUEL_TYPE : INTEGER; 


EXCEPTION_HAS_ OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data tngger checks. 

if not (DS_EQ_ISS_FUEL_TYPE_OTHER_ISS_DB_TABLE_504.NEW_DATA or else 
DS_EQ_ISS_QTY_OTHER_ISS_DB_TABLE_504.NEW_DATA or else 
DS_EQ_ISS_ID_OTHER_ISS_DB_TABLE_504.NEW_DATA or else 
DS_EQ_ISS_UNIT_OTHER_ISS_DB_TABLE_504.NEW_DATA or else 
DS_EQ_ISS_NAME_OTHER_ISS_DB_TABLE_504.NEW_DATA) then 

retum; 
end if; 


-- Data stream reads. 
begin 
DS_EQ_ISS_NAME_OTHER_ISS_DB_TABLE_504.BUFFER.READ(LV_EQ_ISS_NAME); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW("EQ_ISS_NAME_ OTHER_ISS_DB_TABLE_504", 
“OTHER_ISS_DB_TABLE_ 504"); 
end; 
begin 
DS_EQ_ISS_UNIT_OTHER_ISS_DB_TABLE_504.BUFFER.READ(LV_EQ_ISS_UNIT); 
exception 
when BUFFER_UNDERFLOW => 
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DS_DEBUG.BUFFER_UNDERFLOW("EQ_ISS_UNIT_OTHER_ISS_DB_TABLE_504", 
"“OTHER_ISS_DB_TABLE_504"); 
end; 
begin 
DS_EQ_ISS_ID_OTHER_ISS_DB_TABLE_504.BUFFER.READ(LV_EQ_ISS_ID); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("EQ_ISS_ID_OTHER_ISS_DB_TABLE_504", 
"“OTHER_ISS_DB_TABLE_ 504"); 
end; 
begin 
DS_EQ_ISS_QTY_OTHER_ISS_DB_TABLE_504.BUFFER.READ(LV_EQ_ISS QTY); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("EQ_ISS_QTY_OTHER_ISS_DB_TABLE_504", 
"“OTHER_ISS_DB_TABLE_504"); 
end; 
begin 


DS_EQ_ISS_FUEL_TYPE_OTHER_ISS_DB_TABLE_504.BUFFER.READ(LV_EQ_ISS_FUEL_TYPE 
); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("EQ_ISS_FUEL_TYPE_OTHER_ISS_DB_TABLE_504", 
"OTHER_ISS_DB_TABLE_504"); 
end; 


-- Execution trigger condition check. 
if True then 
begin 
OTHER_ISS_DB_TABLE_504( 
EQ_ISS_NAME => LV_EQ_ISS_NAME, 
EQ_ISS_UNIT => LV_EQ_ISS_UNIT, 
EQ_ISS_ID => LV_EQ _ISS_ID, 
EQ_ISS_QTY => LV_EQ _ISS_QTY, 
EQ_ISS_FUEL_TYPE => LV_EQ_ISS_FUEL_TYPE); 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("“OTHER_ISS_DB_TABLE_504"); 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else retum; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 
--Unconditional output translations. 
-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION( 


"OTHER_ISS_DB_TABLE_504", 
PSDL_EXCEPTION ' IMAGE(EXCEPTION_ID)); 
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end if; 
end OTHER_ISS_DB_TABLE_504_DRIVER; 


procedure OTHER_RCPT_DB_TABLE_501_DRIVER is 
LV_OTH_RCPT_SOURCE_UNIT : TEXT_STRING_PKG.TEXT_STRING; 
LV_OTH_RCPT_SOURCE_ID : TEXT_STRING_PKG.TEXT_STRING; 
LV_OTH_RCPT_QTY : INTEGER; 
LV_OTH_RCPT_FUEL_TYPE : INTEGER; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 

if not (DS_OTH_RCPT_FUEL_TYPE_OTHER_RCPT_DB_TABLE_501.NEW_DATA or else 
DS_OTH_RCPT_QTY_OTHER_RCPT_DB_TABLE_501.NEW_DATA or else 
DS_OTH_RCPT_SOURCE_ID_OTHER_RCPT_DB_TABLE_501.NEW_DATA or else 
DS_OTH_RCPT_SOURCE_UNIT_OTHER_RCPT_DB_TABLE_501.NEW_DATA) then 

retum; 
end if; 


-- Data stream reads. 
begin 


DS_OTH_RCPT_SOURCE_UNIT_OTHER_RCPT_DB_TABLE_501.BUFFER.READ(LV_OTH_RCPT 
_SOURCE_UNIT); 
exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG.BUFFER_UNDERFLOW("OTH_RCPT_SOURCE_UNIT_OTHER_RCPT_DB_TABLE_50 
1", "OTHER_RCPT_DB_TABLE_501"); 

end; 

begin 


DS_OTH_RCPT_SOURCE_ID_OTHER_RCPT_DB_TABLE_501.BUFFER.READ(LV_OTH_RCPT_S 
OURCE_ID); 
exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG.BUFFER_UNDERFLOW("OTH_RCPT_SOURCE_ID_OTHER_RCPT_DB_TABLE_501", 
"“OTHER_RCPT_DB_TABLE_501"); 

end; 

begin 


DS_OTH_RCPT_QTY_OTHER_RCPT_DB_TABLE_501.BUFFER.READ(LV_OTH_RCPT_QTY); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("OTH_RCPT_QTY_OTHER_RCPT_DB_TABLE_S01", 
“OTHER_RCPT_DB_TABLE_501"); 
end; 
begin 


DS_OTH_RCPT_FUEL_T YPE_OTHER_RCPT_DB_TABLE_501.BUFFER.READ(LV_OTH_RCPT_F 
VEL_ Tyee); 
exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG.BUFFER_UNDERFLOW("OTH_RCPT_FUEL_TYPE_OTHER_RCPT_DB TABLE 501", 
"“OTHER_RCPT_DB_TABLE_501"); 
end; 


-- Execution trigger condition check. 
if True then 
begin 
OTHER_RCPT_DB_TABLE_501( 
OTH_RCPT_SOURCE_UNIT => LV_OTH_RCPT_SOURCE_UNIT, 
OTH_RCPT_SOURCE_ID => LV_OTH_RCPT_SOURCE_ID, 
OTH_RCPT_QTY => LV_OTH_RCPT_QTY, 
OTH_RCPT_FUEL_TYPE => LV_OTH_RCPT_FUEL_TYPE); 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("OTHER_RCPT_DB_TABLE_501"); 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else retum; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 
--Unconditional output translations. 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"OTHER_RCPT_DB_TABLE_501", 
PSDL_EXCEPTION'IMAGE(EXCEPTION_ID)); 
end if; 
end OTHER_RCPT_DB_TABLE_501_DRIVER; 


procedure BULK_ISS_DB_TABLE_498_DRIVER is 
LV_BULK_RCV_NAME : TEXT_STRING_PKG.TEXT_STRING; 
LV_BULK_RCV_UNIT : TEXT_STRING_PKG.TEXT_STRING; 
LV_BULK_ISS_DOC_NUM : TEXT_STRING_PKG.TEXT_STRING; 
LV_BULK_ISS_QTY : INTEGER; 
LV_BULK_ISS_FUEL_TYPE : INTEGER; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 

if not (DS_BULK_ISS_FUEL_TYPE_BULK_ISS_DB_TABLE_498.NEW_DATA or else 
DS_BULK_ISS_QTY_BULK_ISS_DB_TABLE_498.NEW_DATA or else 
DS_BULK_ISS_DOC_NUM_BULK_ISS_DB_TABLE_498.NEW_DATA or else 
DS_BULK_RCV_UNIT_BULK_ISS_DB_TABLE_498.NEW_DATA or else 
DS_BULK_RCV_NAME_BULK_ISS_DB_TABLE_498.NEW_DATA) then 

return; 
end if; 
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-- Data stream reads. 
begin 


DS_BULK_RCV_NAME_BULK_ISS_DB_TABLE_498.BUFFER.READ(LV_BULK_RCV_NAMEB); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("BULK_RCV_NAME_BULK_ISS_DB_TABLE_498", 
“BULK_ISS_DB_TABLE_498"); 
end; 
begin 
DS_BULK_RCV_UNIT_BULK_ISS_DB_TABLE_498.BUFFER.READ(LV_BULK_RCV_UNIT); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("BULK_RCV_UNIT_BULK_ISS_DB_TABLE_498", 
“BULK_ISS_DB_TABLE_498"); 
end; 
begin 


DS_BULK_ISS_DOC_NUM_BULK_ISS_DB_TABLE_498.BUFFER.READ(LV_BULK_ISS_DOC_NU 
M),; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("BULK_ISS_DOC_NUM_BULK_ISS_DB_TABLE_498", 
"BULK_ISS_DB_TABLE_498"); 
end; 
begin 
DS_BULK_ISS_QTY_BULK_ISS_DB_TABLE_498.BUFFER.READ(LV_BULK_ISS_QTY); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.B UFFER_UNDERFLOW("BULK_ISS_QTY_BULK_ISS_DB_TABLE_498", 
"BULK_ISS_DB_TABLE_498"); 
end; 
begin 


DS_BULK_ISS_FUEL_TYPE_BULK_ISS_DB_TABLE_498.BUFFER.READ(LV_BULK_ISS_FUEL_T 
YPE); 
exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG.BUFFER_UNDERFLOW("BULK_ISS_FUEL_TYPE_BULK_ISS_DB_TABLE_498", 
"BULK_ISS_DB_TABLE_498"); 
end; 


-- Execution trigger condition check. 
if True then 
begin 
BULK_ISS_DB_TABLE_498( 
BULK_RCV_NAME => LV_BULK_RCV_NAME, 
BULK_RCV_UNIT => LV_BULK_RCV_UNIT, 
BULK_ISS_DOC_NUM => LV_BULK_ISS_DOC_NUM, 
BULK_ISS_QTY => LV_BULK_ISS_QTY, 
BULK_ISS_FUEL_TYPE => LV_BULK_ISS_FUEL_TYPE); 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("BULK_ISS_DB_TABLE_ 498"); 
EXCEPTION_HAS_OCCURRED := true; 
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EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else retum; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 
--Unconditional output translations. 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"BULK_ISS_DB_TABLE_498", 
PSDL_EXCEPTION' TIMAGE(EXCEPTION_ID)); 
end if; 
end BULK_ISS_DB_TABLE_498_DRIVER; 


procedure BULK_RCPT_DB_TABLE_495_DRIVER is 
LV_BULK_RCPT_DOC_NUMBER : TEXT_STRING_PKG.TEXT_STRING; 
LV_BULK_RCPT_QTY : INTEGER; 
LV_BULK_RCPT_FUEL_TYPE : INTEGER; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 

if not (DS_BULK_RCPT_FUEL_TYPE_BULK_RCPT_DB_TABLE _495.NEW_DATA or else 
DS_BULK_RCPT_QTY_BULK_RCPT_DB_TABLE_495.NEW_DATA or else 
DS_BULK_RCPT_DOC_NUMBER_BULK_RCPT_DB_TABLE_495.NEW_DATA) then 

retum,; 
end if; 


-- Data stream reads. 
begin 


DS_BULK_RCPT_DOC_NUMBER_BULK_RCPT_DB_TABLE_495.BUFFER.READ(LV_BULK_RCP 
T_DOC_NUMBER); 
exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG.BUFFER_UNDERFLOW("“BULK_RCPT_DOC_NUMBER_BULK_RCPT_DB_TABLE_4 
95", "BULK_RCPT_DB_TABLE_495"): 

end; 

begin 


DS_BULK_RCPT_QTY_BULK_RCPT_DB_TABLE_495.BUFFER.READ(LV_BULK_RCPT_QTY); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("BULK_RCPT_QTY_BULK_RCPT_DB_TABLE_495", 
“"BULK_RCPT_DB_TABLE _ 495"); 
end; 
begin 
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DS_BULK_RCPT_FUEL_TYPE_BULK_RCPT_DB_TABLE _495.BUFFER.READ(LV_BULK_RCPT_ 
FUEL_TYPE); 
exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG.BUFFER_UNDERFLOW("BULK_RCPT_FUEL_TYPE_BULK_RCPT_DB TABLE _ 495", 


"BULK_RCPT_DB_TABLE_495"); 
end; 


-- Execution trigger condition check. 
if True then 
begin 
BULK_RCPT_DB_TABLE_495( 
BULK_RCPT_DOC_NUMBER => LV_BULK_RCPT_DOC_NUMBER, 
BULK_RCPT_QTY => LV_BULK_RCPT_QTY, 
BULK_RCPT_FUEL_TYPE => LV_BULK_RCPT_FUEL_TYPE); 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("BULK_RCPT_DB_TABLE_495"): 
EXCEPTION_HAS_ OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION;: 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 
--Unconditional output translations. 


-- PSDL Exception handler. 
if EXCEPTION_HAS_ OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
“BULK_RCPT_DB_TABLE_ 495", 
PSDL_EXCEPTION'IMAGE(EXCEPTION_ID)); 
end if; 
end BULK_RCPT_DB_TABLE_495_DRIVER; 


procedure DAILY_REPORTER_410_DRIVER is 
LV_DAILY_JET_ISS_TOTAL : INTEGER; 
LV_DAILY_MG_ISS_TOTAL : INTEGER; 
LV_DAILY_DF_ISS_TOTAL : INTEGER; 
LV_DAILY_JET_RCPT_TOTAL : INTEGER; 
LV_DAILY_MG_RCPT_TOTAL : INTEGER; 
LV_DAILY_DF_RCPT_TOTAL : INTEGER; 
LV_MG_ISS_TOTAL : INTEGER; 
LV_DF_ISS_TOTAL : INTEGER; 
LV_JET_ISS_TOTAL : INTEGER; 
LV_JET_RCPT_TOTAL : INTEGER; 
LV_MG_RCPT_TOTAL : INTEGER; 
LV_DF_RCPT_TOTAL : INTEGER; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
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EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 


-- Data stream reads. 
begin 
DS_MG_ISS_TOTAL_DAILY_REPORTER_410.,BUFFER.READ(LV_MG_ISS_TOTAL); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("MG_ISS_TOTAL_DAILY_REPORTER_410”, 
"DAILY_REPORTER_ 410"); 
end; 
begin 
DS_DF_ISS_TOTAL_DAILY_REPORTER_410.BUFFER.READ(LV_DF_ISS_TOTAL); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("DF_ISS_TOTAL_DAILY_REPORTER_ 410", 
"DAILY _REPORTER_ 410"); 
end; 
begin 
DS_JET_ISS_TOTAL_DAILY_REPORTER_410.BUFFER.READ(LV_JET_ISS_TOTAL); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("JET_ISS_TOTAL_DAILY_REPORTER_ 410", 
"DAILY _REPORTER_410"); 
end; 
begin 
DS_DF_ RCPT_TOTAL_DAILY_REPORTER_410.BUFFER.READ(LV_DF_RCPT_TOTAL); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("DF_RCPT_TOTAL_DAILY_REPORTER_ 410", 
"DAILY_REPORTER_ 410"); 
end; 
begin 
DS_MG_RCPT_TOTAL_DAILY_REPORTER_410.BUFFER.READ(LV_MG_RCPT_TOTAL); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("MG_RCPT_TOTAL_DAILY_REPORTER_410", 
"DAILY_REPORTER_ 410"); 
end; 
begin 
DS_JET_RCPT_TOTAL_DAILY_REPORTER_410.BUFFER.READ(LV_JET_RCPT_TOTAL); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("“JET_RCPT_TOTAL_DAILY_REPORTER_ 410", 
"DAILY_REPORTER_ 410"); 
end; 


-- Execution trigger condition check. 
if True then 

begin 

DAILY_REPORTER_410( 
DAILY_JET_ISS_TOTAL => LV_DAILY_JET_ISS_TOTAL, 
DAILY_MG_ISS_TOTAL => LV_DAILY_MG_ISS_TOTAL, 
DAILY_DF_ISS_TOTAL => LV_DAILY_DF_ISS_TOTAL, 
DAILY_JET_RCPT_TOTAL => LV_DAILY_JET_RCPT_TOTAL, 
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DAILY_MG_RCPT_TOTAL => LV_DAILY_MG_RCPT_ TOTAL, 
DAILY_DF_RCPT_TOTAL => LV_DAILY_DF_RCPT_TOTAL, 
MG_ISS_TOTAL => LV_MG_ISS_TOTAL, 
DF_ISS_TOTAL => LV_DF_ISS_TOTAL, 
JET_ISS_TOTAL => LV_JET_ISS_TOTAL, 
JET_RCPT_TOTAL => LV_JET_RCPT_TOTAL, 
MG_RCPT_TOTAL => LV_MG_RCPT_TOTAL, 
DF_RCPT_TOTAL => LV_DF_RCPT_TOTAL); 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("DAILY_REPORTER_ 410"); 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED _ADA_EXCEPTION: 
end; 
else retum; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 


DS_DAILY_JET_ISS_TOTAL_MO_JET_ISS_TOTALIZER_598.BUFFER.WRITE(LV_DAILY_JET_IS 
S_TOTAL); 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG.BUFFER_OVERFLOW("DAILY_JET_ISS_TOTAL_MO_JET_ISS_TOTALIZER_598", 
"DAILY_REPORTER_410"); 

end; 

begin 


DS_DAILY_JET_ISS_TOTAL_DAILY_ISS_DB_TABLE_743.BUFFER.WRITE(LV_DAILY_JET_ISS_ 
TOTAL); 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG.BUFFER_OVERFLOW("DAILY_JET_ISS_TOTAL_DAILY_ISS_DB_TABLE_743", 
"DAILY_REPORTER_410"); 
end; 
end if; 
if not EXCEPTION_HAS_ OCCURRED then 
begin 


DS_DAILY_MG_ISS_TOTAL_MO_MG_ISS_TOTALIZER_595.BUFFER.WRITE(LV_DAILY_MG_IS 
S_TOTAL); 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG.BUFFER_OVERFLOW("DAILY_MG_ISS_TOTAL_MO_MG_ISS_TOTALIZER_ 595", 
"DAILY_REPORTER_ 410"); 

end; 

begin 
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DS_DAILY_MG_ISS_TOTAL_DAILY_ISS_DB_TABLE_743.BUFFER.WRITE(LV_DAILY_MG_ISS_ 
TOTAL); 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG.BUFFER_OVERFLOW("DAILY_MG_ISS_TOTAL_DAILY_ISS_DB_TABLE_743", 
"DAILY _REPORTER_ 410"); 
end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 


DS_DAILY_DF_ISS_TOTAL_MO_DF_ISS_TOTALIZER_592.BUFFER.WRITE(LV_DAILY_DF_ISS_ 
TOTAL); 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG.BUFFER_OVERFLOW("DAILY_DF_ISS_TOTAL_MO_DF_ISS_TOTALIZER_ 592", 
"DAILY_REPORTER_ 410"); 

end; 

begin 


DS_DAILY_DF_ISS_TOTAL_DAILY_ISS_DB_TABLE_743.BUFFER.WRITE(LV_DAILY_DF_ISS_T 
OTAL); 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG.BUFFER_OVERFLOW("DAILY_DF_ISS_TOTAL_DAILY_ISS_DB_TABLE_743", 
"DAILY REPORTER. 410"); 
end; 
end if; 
if not EXCEPTION _HAS_OCCURRED then 
begin 


DS_DAILY_JET_RCPT_TOTAL_MO_JET_RCPT_TOTALIZER_589.BUFFER.WRITE(LV_DAILY_J 
ET_RCPT_TOTAL); 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG.BUFFER_OVERFLOW("DAILY_JET_RCPT_TOTAL_MO_JET_RCPT_TOTALIZER_58 
9", "DAILY_REPORTER_ 410"); 

end: 

begin 


DS_DAILY_JET_RCPT_TOTAL_DAILY_RCPT_DB_TABLE_740.BUFFER.WRITE(LV_DAILY_JET 
_RCPT_TOTAL); 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG.BUFFER_OVERFLOW("DAILY_JET_RCPT_TOTAL_DAILY_RCPT_DB_TABLE_740", 
"DAILY_REPORTER_410"); 
end; 
end if; 
if not EXCEPTION_HAS OCCURRED then 
begin 
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DS_DAILY_MG_RCPT_TOTAL_MO_MG_RCPT_TOTALIZER_586.BUFFER.WRITE(LV_DAILY_M 
G_RCPT_TOTAL), 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG.BUFFER_OVERFLOW("DAILY_MG_RCPT_TOTAL_MO_MG_RCPT_TOTALIZER_58 
6", "DAILY_REPORTER_ 410"); 

end; 

begin 


DS_DAILY_MG_RCPT_TOTAL_DAILY_RCPT_DB_TABLE_740.BUFFER.WRITE(LV_DAILY_MG 
_RCPT_TOTAL); 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG. BUFFER_OVERFLOW("DAILY_MG_RCPT _TOTAL_DAILY_RCPT_DB_TABLE_740", 
"DAILY_REPORTER_ 410"); 
end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 


DS_DAILY_DF_RCPT_TOTAL_MO_DF_RCPT_TOTALIZER_583.BUFFER.WRITE(LV_DAILY_DF 
_RCPT_TOTAL); 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG.BUFFER_OVERFLOW("DAILY_DF_RCPT_TOTAL_MO_DF_RCPT_TOTALIZER_583" 
, "DAILY_REPORTER_ 410"); 

end; 

begin 


DS_DAILY_DF_RCPT_TOTAL_DAILY_RCPT_DB_TABLE_740.BUFFER.WRITE(LV_DAILY_DF_ 
RCPT_TOTAL); 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG.BUFFER_OVERFLOW("DAILY_DF_RCPT_TOTAL_DAILY_RCPT_DB_TABLE_740", 
"DAILY_REPORTER_ 410"); 
end; 
end if; 
ifnot EXCEPTION_HAS_OCCURRED then 
begin 
DS_MG_ISS_TOTAL_MG_ISS_TOTALIZER_349.BUFFER.WRITE(LV_MG_ISS_TOTAL); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("MG_ISS_TOTAL_MG_ISS_TOTALIZER_ 349", 
"DAILY_REPORTER_ 410"); 
end; 
begin 
DS_MG_ISS_TOTAL_DAILY_REPORTER_410.BUFFER.WRITE(LV_MG_ISS_TOTAL); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("MG_ISS_TOTAL_DAILY_REPORTER_ 410", 
"DAILY_REPORTER_410"); 
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end; 
end if; 
if not EXCEPTION_HAS_ OCCURRED then 
begin 
DS_DF_ISS_TOTAL_DF_ISS_TOTALIZER_352.BUFFER.WRITE(LV_DF_ISS_TOTAL); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("DF_ISS_TOTAL_DF_ISS_TOTALIZER_352", 
"DAILY_REPORTER_ 410"); 
end; 
begin 
DS_DF_ISS_TOTAL_DAILY_REPORTER_410.BUFFER.WRITE(LV_DF_ISS_ TOTAL); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("DF_ISS_TOTAL_DAILY_REPORTER_ 410", 
"DAILY _REPORTER_ 410"); 
end; 
end if; 
if not EXCEPTION_HAS_ OCCURRED then 
begin 
DS_JET_ISS_TOTAL_JET_ISS_TOTALIZER_346.BUFFER.WRITE(LV_JET_ISS_TOTAL); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("JET_ISS_TOTAL_JET_ISS_TOTALIZER_ 346", 
"DAILY_REPORTER_410"); 
end; 
begin 
DS_JET_ISS_TOTAL_DAILY_REPORTER_410.BUFFER.WRITE(LV_JET_ISS_TOTAL); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("“JET_ISS_TOTAL_DAILY_REPORTER_ 410", 
"DAILY REPORTER. 410"); 
end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 


DS_JET_RCPT_TOTAL_JET_RCPT_TOTALIZER_280.BUFFER.WRITE(LV_JET_RCPT_TOTAL); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("JET_RCPT_TOTAL_JET_RCPT_TOTALIZER_280", 
“DAILY_REPORTER_410"); 
end; 
begin 
DS_JET_RCPT_TOTAL_DAILY_REPORTER_410.BUFFER.WRITE(LV_JET_RCPT_TOTAL); 
exception. 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("JET_RCPT_TOTAL_DAILY_REPORTER_410", 
"DAILY_REPORTER_410"); 
end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 


DS_MG_RCPT_TOTAL_MG_RCPT_TOTALIZER_277.BUFFER.WRITE(LV_MG_RCPT_TOTAL); 
exception 
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when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("MG_RCPT_TOTAL_ MG RCPT_TOTALIZER_ 277”, 
"DAILY_REPORTER_ 410"); 
end; 
begin 
DS_MG_RCPT_TOTAL_DAILY_REPORTER_410.BUFFER.WRITE(LV_MG_RCPT_TOTAL): 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("MG_RCPT_TOTAL_DAILY_REPORTER_ 410”, 
"DAILY_REPORTER_410"); 
end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 


DS_DF_RCPT_TOTAL_DF_RCPT_TOTALIZER_274.BUFFER.WRITE(LV_DF_RCPT_TOTAL); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("DF_RCPT_TOTAL_DF_RCPT_TOTALIZER_274", 
"DAILY_REPORTER_410"); 
end; 
begin 
DS_DF_RCPT_TOTAL_DAILY_REPORTER_410.BUFFER.WRITE(LV_DF_RCPT_TOTAL); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("DF_RCPT_TOTAL_DAILY_REPORTER_410", 
"DAILY_REPORTER_410"); 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"DAILY_REPORTER_ 410", 
PSDL_EXCEPTION IMAGE(EXCEPTION_ID)); 
end if; 
end DAILY_REPORTER_410_DRIVER; 


procedure DF_ISS_TOTALIZER_352_DRIVER is 
LV_I_DF_QTY : INTEGER; 
LV_DF_ISS_TOTAL : INTEGER; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data tigger checks. 
if not (DS_I_DF_QTY_DF_ISS_TOTALIZER_352.NEW_DATA) then 
retum,; 
end if; 


-- Data stream reads. 
begin 
DS_I_DF_QTY_DF_ISS_TOTALIZER_352.BUFFER.READ(LV_I_DF_QTY); 
exception 
when BUFFER_UNDERFLOW => 
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DS_DEBUG.BUFFER_UNDERFLOW("I_DF_QTY_DF_ISS_TOTALIZER_ 352", 
"DF_ISS_TOTALIZER_352"); 
end; 
begin 
DS_DF_ISS_TOTAL_DF_ISS_TOTALIZER_352.BUFFER.READ(LV_DF_ISS_TOTAL); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("DF_ISS_TOTAL_DF_ISS_TOTALIZER_352", 
"DF_ISS_TOTALIZER_ 352"); 
end; 


-- Execution trigger condition check. 
if True then 
begin 
DF_ISS_TOTALIZER_352( 
I_DF_QTY => LV_I_DF_QTY, 
DF_ISS_TOTAL => LV_DF_ISS_TOTAL); 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("DF_ISS_TOTALIZER_352"): 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_ EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_DF_ISS_TOTAL_DF_ISS_TOTALIZER_352.BUFFER.WRITE(LV_DF_ISS_TOTAL); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("DF_ISS_TOTAL_DF_ISS_TOTALIZER_ 352", 
"DF_ISS_TOTALIZER_352"); 
end; 
begin 
DS_DF_ISS_TOTAL_DAILY_REPORTER_410.BUFFER.WRITE(LV_DF_ISS_TOTAL); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("DF_ISS_TOTAL_DAILY_REPORTER_ 410", 
"DF_ISS_TOTALIZER_ 352"); 
end; 
end if: 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"DF_ISS_TOTALIZER_352", 
PSDL_EXCEPTION'IMAGE(EXCEPTION_ID)); 
end if; 
end DF_ISS_TOTALIZER_352_DRIVER; 
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procedure MG_ISS_TOTALIZER_349_ DRIVER is 
LV_I_MG_OTY : INTEGER: 
LV_MG_ISS_TOTAL : INTEGER; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data tigger checks. 
if not (DS_ILMG_QTY_MG_ISS_TOTALIZER_349.NEW_DATA) then 
return; | 
end if; 


-- Data stream reads. 
begin 
DS_I_MG_QTY_MG_ISS_TOTALIZER_349.BUFFER.READ(LV_I_MG_QTY); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("“I_MG_QTY_MG_ISS_TOTALIZER_349", 
"MG_ISS_TOTALIZER_ 349"); 
end; 
begin 
DS_MG_ISS_TOTAL_MG_ISS_TOTALIZER_349.BUFFER.READ(LV_MG_ISS_TOTAL); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("MG_ISS_TOTAL_MG_ISS_TOTALIZER_349", 
"MG_ISS_TOTALIZER_349"); 
end; 


-- Execution trigger condition check. 
if True then 
begin 
MG_ISS_TOTALIZER_349( 
IMG QTY =>LV_I_MG QTY, 
MG_ISS_TOTAL => LV_MG_ISS_TOTAL); 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("MG_ISS_TOTALIZER_ 349"); 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_MG_ISS_TOTAL_MG_ISS_TOTALIZER_349.BUFFER.WRITE(LV_MG_ISS_TOTAL); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("MG_ISS_TOTAL_MG_ISS_TOTALIZER_349", 
"MG_ISS_TOTALIZER_349"); 
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end; 
begin 
DS_MG_ISS_TOTAL_DAILY_REPORTER_410.BUFFER.WRITE(LV_MG_ISS_TOTAL): 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("MG_ISS_ TOTAL DAILY_REPORTER_ 410", 
"MG_ISS_TOTALIZER_ 349"); 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"MG_ISS_TOTALIZER_ 349", 
PSDL_EXCEPTION IMAGE(EXCEPTION_ID)); 
end if; 
end MG_ISS_TOTALIZER_349_DRIVER; 


procedure JET_ISS_TOTALIZER_346_DRIVER is 
LV_I_JET_QTY : INTEGER; 
LV_JET_ISS_TOTAL : INTEGER; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data tigger checks. 
if not (DS_I_JET_QTY_JET_ISS_TOTALIZER_346.NEW_DATA) then 
retum; 
end if; 


-- Data stream reads. 
begin | 
DS_I_JET_QTY_JET_ISS_TOTALIZER_346.BUFFER.READ(LV_I_JET_QTY); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("I_JET_QTY_JET_ISS_TOTALIZER_ 346", 
"JET_ISS_TOTALIZER_ 346"); 
end; 
begin 
DS_JET_ISS_TOTAL_JET_ISS_TOTALIZER_346.BUFFER.READ(LV_JET_ISS_ TOTAL); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("JET_ISS_TOTAL_JET_ISS_TOTALIZER_ 346", 
"JET_ISS_TOTALIZER_ 346"); 
end; 


-- Execution trigger condition check. 
if True then 

begin 

JET_ISS_TOTALIZER_346( 
I_JET_QTY =>LV_I_JET_QTY, 
JET_ISS_TOTAL => LV_JET_ISS_TOTAL); 

exception 
when others => 

DS_DEBUG.UNDECLARED_EXCEPTION("“JET_ISS_TOTALIZER_ 346"); 
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EXCEPTION_HAS_ OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_ EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_JET_ISS_TOTAL_JET_ISS_TOTALIZER_346.BUFFER.WRITE(LV_JET_ISS_TOTAL); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("JET_ISS_TOTAL_JET_ISS_TOTALIZER_346", 
"JET_ISS_TOTALIZER_346"); 
end; 
begin 
DS_JET_ISS_TOTAL_DAILY_REPORTER_410.BUFFER.WRITE(LV_JET_ISS_TOTAL); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("JET_ISS_TOTAL_DAILY_REPORTER_410", 
"JET_ISS_TOTALIZER_346"); 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"JET_ISS_TOTALIZER_ 346", 
PSDL_EXCEPTION'IMAGE(EXCEPTION_ID)); 
end if; 
end JET_ISS_TOTALIZER_346_DRIVER; 


procedure JET_RCPT_TOT ALIZER_280_DRIVER is 
LV_R_JET_QTY : INTEGER; 
LV_JET_RCPT_TOTAL : INTEGER; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 
if not (DS_R_JET_QTY_JET_RCPT_TOTALIZER_280.NEW_DATA) then 
retum; 
end if; 


-- Data stream reads. 
begin 
DS_R_JET_QTY_JET_RCPT_TOTALIZER_280.BUFFER.READ(LV_R_JET_QTY); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("R_JET_QTY_JET_RCPT_TOTALIZER_280", 
"JET_RCPT_TOTALIZER_280"); 
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end: 
begin 


DS_JET_RCPT_TOTAL_JET_RCPT_TOTALIZER_280.BUFFER.READ(LV_JET_RCPT_TOTAL); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("“JET_RCPT_TOTAL_JET_RCPT_TOTALIZER_ 280", 
"JET_RCPT_TOTALIZER_280"); 
end; 


-- Execution trigger condition check. 
if True then 
begin 
JET_RCPT_TOTALIZER_280( 
R_JET_QTY => LV_R_JET_QTY, 
JET_RCPT_TOTAL => LV_JET_RCPT_TOTAL); 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION(“JET_RCPT_TOTALIZER_280"); 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else retum; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 


begin 


DS_JET_RCPT_TOTAL_JET_RCPT_TOTALIZER_280.BUFFER.WRITE(LV_JET_RCPT_TOTAL); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("JET_RCPT_TOTAL_JET_RCPT_TOTALIZER_ 280", 
"JET_RCPT_TOTALIZER_ 280"); 
end; 
begin 
DS_JET_RCPT_TOTAL_DAILY_REPORTER_410.BUFFER.WRITE(LV_JET_RCPT_TOTAL); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("JET_RCPT_TOTAL_DAILY_REPORTER_ 410", 
"JET_RCPT_TOTALIZER_ 280"); 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"JET_RCPT_TOTALIZER_280", 
PSDL_EXCEPTION'IMAGE(EXCEPTION_ID)); 
end if; 
end JET_RCPT_TOTALIZER_280_DRIVER; 
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procedure MG_RCPT_TOTALIZER_277_DRIVER is 
LV_R_MG_QTY : INTEGER; 
LV_MG_RCPT_TOTAL : INTEGER; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION,; 
begin 
-- Data trigger checks. 
if not (DS_R_.MG_QTY_MG_RCPT_TOTALIZER_277.NEW_DATA) then 
retum; 
end if: 


-- Data stream reads. 
begin 
DS_R_MG_QTY_MG_RCPT_TOTALIZER_277.BUFFER.READ(LV_R_MG_ QTY); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("R_MG_QTY_MG_RCPT_TOTALIZER_ 277", 
"MG_RCPT_TOTALIZER_277"); 
end; 
begin 


DS_MG_RCPT_TOTAL_MG_RCPT_TOTALIZER_277.BUFFER.READ(LV_MG_RCPT_TOTAL); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("MG_RCPT_TOTAL_MG_RCPT_TOTALIZER_277", 
“"MG_RCPT_TOTALIZER_ 277"); 
end; 


-- Execution trigger condition check. 
if True then 
begin 
MG_RCPT_TOTALIZER_277( 
R_MG_QTY => LV_R_MG _OQTY, 
MG_RCPT_TOTAL => LV_MG_RCPT_TOTAL); 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("MG_RCPT_TOTALIZER_ 277"), 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if: 


-- Exception Constraint translations. 
-- Other constraint option translations. 
--Unconditiona! output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_MG_RCPT_TOTAL_MG_RCPT_TOTALIZER_277.BUFFER.WRITE(LV_MG_RCPT_TOTAL); 


exception 
when BUFFER_OVERFLOW => 
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DS_DEBUG.BUFFER_OVERFLOW("MG_RCPT_TOTAL_MG_RCPT_TOTALIZER_277", 
"MG_RCPT_TOTALIZER_277"); 
end; 
begin 
DS_MG_RCPT_TOTAL_DAILY_REPORTER_410.BUFFER.WRITECLV_MG_RCPT_TOTAL); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("MG_RCPT_TOTAL_DAILY_REPORTER_ 410", 
"MG_RCPT_TOTALIZER_277"); 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"MG_RCPT_TOTALIZER_ 277”, 
PSDL_EXCEPTION'IMAGE(EXCEPTION_ID)); 
end if; 
end MG_RCPT_TOTALIZER_277_DRIVER; 


procedure DF_RCPT_TOTALIZER_274_DRIVER is 
LV_R_DF_QTY : INTEGER; 
LV_DF_RCPT_TOTAL : INTEGER; 


EXCEPTION_HAS_ OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 
if not (DS_R_DF_QTY_DF_RCPT_TOTALIZER_274.NEW_DATA) then 
Tetum; 
end if; 


-- Data stream reads. 
begin 
DS_R_DF_QTY_DF_RCPT_TOTALIZER_274.BUFFER.READ(LV_R_DF_QTY); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("R_DF_QTY_DF_RCPT_TOTALIZER_ 274", 
"DF_RCPT_TOTALIZER_274"); 
end; 
begin 
DS_DF_RCPT_TOTAL_DF_RCPT_TOTALIZER_274.BUFFER.READ(LV_DF_RCPT_TOTAL); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("DF_RCPT_TOTAL_DF_RCPT_TOTALIZER_ 274", 
"DF_RCPT_TOTALIZER_ 274"); 
end; 


-- Execution trigger condition check. 
if True then 
begin 
DF_RCPT_TOTALIZER_274( 
R_DF_QTY => LV_R_DF_QTY, 
DF_RCPT_TOTAL => LV_DF_RCPT_TOTAL); 
exception 
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when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("DF_RCPT_TOTALIZER_ 274"): 
EXCEPTION_HAS_ OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 


DS_DF_RCPT_TOTAL_DF_RCPT_TOTALIZER_274.BUFFER.WRITE(LV_DF_RCPT_TOTAL): 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("DF_RCPT_TOTAL_DF_RCPT_TOTALIZER_274", 
"DF_RCPT_TOTALIZER_ 274"); 
end; 
begin 
DS_DF_RCPT_TOTAL_DAILY_REPORTER_410.BUFFER.WRITE(LV_DF_RCPT_TOTAL); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("DF_RCPT_TOTAL_DAILY_REPORTER_ 410", 
"DF_RCPT_TOTALIZER_274"); 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG. UNHANDLED_EXCEPTION( 
“"DF_RCPT_TOTALIZER_274", 
PSDL_EXCEPTION'IMAGE(EXCEPTION_ID)); 
end if; 
end DF_RCPT_TOTALIZER_274_DRIVER; 


procedure BULK_RCPT_PROCESSOR_198_DRIVER is 
LV_BULK_RCPT_FUEL_TYPE : INTEGER; 
LV_BULK_RCPT_QTY : INTEGER; 
LV_BULK_RCPT_ENABLE : BOOLEAN; 
LV_OTH_RCPT_ENABLE : BOOLEAN; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 
if not (DS_BULK_RCPT_FUEL_TYPE_BULK_RCPT_PROCESSOR_198.NEW_DATA and then 
DS_BULK_RCPT_QTY_BULK_RCPT_PROCESSOR_198.NEW_DATA) then 
return; 
end if; 


-- Data stream reads. 
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begin 


DS_BULK_RCPT_FUEL_TYPE_BULK_RCPT_PROCESSOR_198.BUFFER.READ(LV_BULK_RCPT 
»FUELSTIYPE); 
exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG.BUFFER_UNDERFLOW("BULK_RCPT_FUEL_TYPE_BULK_RCPT_PROCESSOR_ 198 
"’"BULK_RCPT_PROCESSOR_ 198"); 

end; 

begin 


DS_BULK_RCPT_QTY_BULK_RCPT_PROCESSOR_198.BUFFER.READ(LV_BULK_RCPT_QTY); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("BULK_RCPT_QTY_BULK_RCPT_PROCESSOR_ 198", 
“"BULK_RCPT_PROCESSOR_198"); 
end; 
begin 


DS_OTH_RCPT_ENABLE_BULK_RCPT_PROCESSOR_198.BUFFER.READ(LV_OTH_RCPT_ENAB 
LE); 
exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG.BUFFER_UNDERFLOW("“OTH_RCPT_ENABLE BULK_RCPT_PROCESSOR_198", 
"BULK_RCPT_PROCESSOR_ 198"); 
end; 


-- Execution trigger condition check. 
if True then 
begin 
BULK_RCPT_PROCESSOR_198( 
BULK_RCPT_FUEL_TYPE => LV_BULK_RCPT_FUEL_TYPE, 
BULK_RCPT_QTY => LV_BULK_RCPT_QTY, 
BULK_RCPT_ENABLE => LV_BULK_RCPT_ENABLE, 
OTH_RCPT_ENABLE => LV_OTH_RCPT_ENABLE); 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("BULK_RCPT_PROCESSOR_198"); 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 
--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 


DS_BULK_RCPT_ENABLE_OTH_RCPT_PROCESSOR_207.BUFFER.WRITE(LV_BULK_RCPT_EN 
ABLE); 
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exception 
when BUFFER_OVERFLOW => 


DS_DEBUG.BUFFER_OVERFLOW("BULK_RCPT_ENABLE_OTH_RCPT_PROCESSOR_ 207", 
“BULK_RCPT_PROCESSOR_ 198"); 

end; 

begin 


DS_BULK_RCPT_ENABLE_RCPT_PROCESSOR_210.BUFFER.WRITE(LV_BULK_RCPT_ENABLE 
D: 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("BULK_RCPT_ENABLE_RCPT_PROCESSOR_ 210", 
"BULK_RCPT_PROCESSOR_ 198"); 
end; 
end if; 
if not EXCEPTION_HAS_ OCCURRED then 
begin 


DS_OTH_RCPT_ENABLE_BULK_RCPT_PROCESSOR_198.BUFFER.WRITE(LV_OTH_RCPT_ENA 
BLE); 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG.BUFFER_OVERFLOW(“OTH_RCPT_ENABLE_ BULK_RCPT_PROCESSOR_ 198", 
“"BULK_RCPT_PROCESSOR_ 198"); 

end; 

begin 


DS_OTH_RCPT_ENABLE_RCPT_PROCESSOR_210.BUFFER.WRITE(LV_OTH_RCPT_ENABLE); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("“OTH_RCPT_ENABLE_RCPT_PROCESSOR_210", 
“"BULK_RCPT_PROCESSOR_198"); 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
“"BULK_RCPT_PROCESSOR_ 198", 
PSDL_EXCEPTION IMAGE(EXCEPTION_ID)); 
end if; 
end BULK_RCPT_PROCESSOR_198_DRIVER; 


procedure OTH_RCPT_PROCESSOR_207_DRIVER is 
LV_OTH_RCPT_QTY : INTEGER; 
LV_OTH_RCPT_FUEL_TYPE : INTEGER; 
LV_OTH_RCPT_ENABLE : BOOLEAN; 
LV_BULK_RCPT_ENABLE : BOOLEAN; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data tigger checks. 
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if not (DS_OTH_RCPT_FUEL_TYPE_OTH_RCPT_PROCESSOR_207.NEW_DATA and then 
DS_OTH_RCPT_QT Y_OTH_RCPT_PROCESSOR_207.NEW_DATA) then 
retum; 
end if; 


-- Data stream reads. 
begin 
DS_OTH_RCPT_QT Y_OTH_RCPT_PROCESSOR_207.BUFFER.READ(LV_OTH_RCPT_QTY); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("OTH_RCPT_QTY_OTH_RCPT_PROCESSOR_207", 
"“OTH_RCPT_PROCESSOR_207"); 
end; 
begin 


DS_OTH_RCPT_FUEL_TYPE_OTH_RCPT_PROCESSOR_207.BUFFER.READ(LV_OTH_RCPT_FU 
EL_TYPE); 
exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG.BUFFER_UNDERFLOW (“OTH_RCPT_FUEL_TYPE_OTH_RCPT_PROCESSOR_207", 
"OTH_RCPT_PROCESSOR_207"); 

end; 

begin 


DS_BULK_RCPT_ENABLE_OTH_RCPT_PROCESSOR_207.BUFFER.READ(LV_BULK_RCPT_ENA 
BLE); 
exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG.BUFFER_UNDERFLOW("BULK_RCPT_ENABLE_OTH_RCPT_PROCESSOR_ 207", 
"OTH_RCPT_PROCESSOR_207"); 
end; 


-- Execution trigger condition check. 
if True then 
begin 
OTH_RCPT_PROCESSOR_207( 
OTH_RCPT_QTY => LV_OTH_RCPT_QTY, 
OTH_RCPT_FUEL_TYPE => LV_OTH_RCPT_FUEL_TYPE, 
OTH_RCPT_ENABLE => LV_OTH_RCPT_ENABLE, 
BULK_RCPT_ENABLE => LV_BULK_RCPT_ENABLE); 
exception 
when others => 
DS_DEBUG.UNDECLARED _ EXCEPTION("OTH_RCPT_PROCESSOR_207"); 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
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if not EXCEPTION_HAS_OCCURRED then 
begin 


DS_OTH_RCPT_ENABLE_BULK_RCPT_PROCESSOR_198.BUFFER.WRITE(LV_OTH_RCPT_ENA 
BLE); 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG.BUFFER_OVERFLOW("OTH_RCPT_ENABLE_ BULK_RCPT_PROCESSOR_ 198", 
"OTH_RCPT_PROCESSOR_207"); 

end; 

begin 


DS_OTH_RCPT_ENABLE_RCPT_PROCESSOR_210.BUFFER.WRITE(LV_OTH_RCPT_ENABLE); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("OTH_RCPT_ENABLE_RCPT_PROCESSOR_ 210", 
"OTH_RCPT_PROCESSOR_207"): 
end; 
end if; 
if not EXCEPTION _HAS_ OCCURRED then 
begin 


DS_BULK_RCPT_ENABLE_OTH_RCPT_PROCES SOR_207.BUFFER.WRITE(_LV_BULK_RCPT_EN 
ABLE); 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG.BUFFER_OVERFLOW("BULK_RCPT_ENABLE_OTH_RCPT_PROCESSOR_207", 
"OTH_RCPT_PROCESSOR_207"); 

end; 

begin 


DS_BULK_RCPT_ENABLE_RCPT_PROCESSOR_210.BUFFER.WRITE(LV_BULK_RCPT_ENABLE 
)s 

exception 

when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("BULK_RCPT_ENABLE_RCPT_PROCESSOR_210", 

"“OTH_RCPT_PROCESSOR_207"); 

end; 

end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"OTH_RCPT_PROCESSOR_207", 
PSDL_EXCEPTION'IMAGE(EXCEPTION_ID)); 
end if; 
end OTH_RCPT_PROCESSOR_207_DRIVER; 


procedure RCPT_PROCESSOR_210_DRIVER is 
LV_OTH_RCPT_QTY : INTEGER: 
LV_OTH_RCPT_FUEL_TYPE : INTEGER: 
LV_BULK_RCPT_QTY : INTEGER: 
LV_BULK_RCPT_FUEL_TYPE : INTEGER: 
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LV_OTH_RCPT_ENABLE : BOOLEAN; 
LV_BULK_RCPT_ENABLE : BOOLEAN; 
LV_R_JET_QTY : INTEGER; 
LV_R_MG_QTY : INTEGER; 
LV_R_DF_QTY : INTEGER; 
LV_JET_RCPT_QTY : INTEGER; 
LV_MOGAS_RCPT_QTY : INTEGER; 
LV_DIESEL_RCPT_QTY : INTEGER; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 
if not (DS_BULK_RCPT_ENABLE_RCPT_PROCESSOR_210.NEW_DATA or else 
DS_OTH_RCPT_ENABLE_RCPT_PROCESSOR_210.NEW_DATA) then 
retum; 
end if: 


-- Data stream reads. 
begin 
DS_OTH_RCPT_QTY_RCPT_PROCESSOR_210.BUFFER.READ(LV_OTH_RCPT_QTY); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("OTH_RCPT_QTY_RCPT_PROCESSOR_ 210", 
"RCPT_PROCESSOR_210"); 
end; 
begin 


DS_OTH_RCPT_FUEL_TYPE_RCPT_PROCESSOR_210.BUFFER.READ(LV_OTH_RCPT_FUEL_TY 
PE); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("“OTH_RCPT_FUEL_TYPE_RCPT_PROCESSOR_ 210", 
"RCPT_PROCESSOR_210"); 
end; 
begin 
DS_BULK_RCPT_QTY_RCPT_PROCESSOR_210.BUFFER.READ(LV_BULK_RCPT_QTY); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.B UFFER_UNDERFLOW("BULK_RCPT_QTY_RCPT_PROCESSOR_210", 
"RCPT_PROCESSOR_210"); 
end; 
begin 


DS_BULK_RCPT_FUEL_TYPE_RCPT_PROCESSOR_210.BUFFER.READ(LV_BULK_RCPT_FUEL_ 
TYPE); 

exception 

when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("BULK_RCPT_FUEL_TYPE_RCPT_PROCESSOR_7210", 

"RCPT_PROCESSOR_210"); 

end; 

begin 


DS_OTH_RCPT_ENABLE_RCPT_PROCESSOR_210.BUFFER.READ(LV_OTH_RCPT_ENABLE); 


exception 
when BUFFER_UNDERFLOW => 
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DS_DEBUG.BUFFER_UNDERFLOW("“OTH_RCPT_ENABLE RCPT_PROCESSOR_ 210", 
“"RCPT_PROCESSOR_ 210"); 
end; 
begin 


DS_BULK_RCPT_ENABLE_RCPT_PROCESSOR_210.BUFFER.READ(LV_BULK_RCPT_ENABLE): 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("BULK_RCPT_ENABLE_RCPT_PROCESSOR_210", 
"RCPT_PROCESSOR_210"); 
end; 


-- Execution trigger condition check. 
if True then 
begin 
RCPT_PROCESSOR_210( 
OTH_RCPT_QTY => LV_OTH_RCPT_QTY, 
OTH_RCPT_FUEL_TYPE => LV_OTH_RCPT_FUEL_TYPE, 
BULK_RCPT_QTY => LV_BULK_RCPT_QTY, 
BULK_RCPT_FUEL_TYPE => LV_BULK_RCPT_FUEL_TYPE, 
OTH_RCPT_ENABLE => LV_OTH_RCPT_ENABLE, 
BULK_RCPT_ENABLE => LV_BULK_RCPT_ENABLE, 
R_JET_QTY => LV_R_JET_QTY, 
R_MG_QTY => LV_R_MG _OTY, 
R_DF_QTY => LV_R_DF_QTY, 
JET_RCPT_QTY => LV_JET_RCPT_QTY, 
MOGAS_RCPT_QTY => LV_MOGAS_RCPT_QTY, 
DIESEL_RCPT_QTY => LV_DIESEL_RCPT_QTY); 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("RCPT_PROCESSOR_ 210"); 
EXCEPTION_HAS_ OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else retum; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_R_JET_QTY_JET_RCPT_TOTALIZER_280.BUFFER.WRITE(LV_R_JET_QTY); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("R_JET_QTY_JET_RCPT_TOTALIZER_ 280", 
"RCPT_PROCESSOR_210"); 
end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_R_MG_QTY_MG_RCPT_TOTALIZER_277.BUFFER.WRITE(LV_R_MG_QTY); 
exception 
when BUFFER_OVERFLOW => 
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DS_DEBUG.BUFFER_OVERFLOW("R_MG_QTY_MG_RCPT_TOTALIZER_277", 
"RCPT_PROCESSOR_210"); 
end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_R_DF_QTY_DF_RCPT_TOTALIZER_274.BUFFER.WRITE(LV_R_DF_ QTY); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("R_DF_QTY_DF_RCPT_TOTALIZER _ 274", 
"RCPT_PROCESSOR_ 210"); 
end; 
end if; 
if not EXCEPTION_HAS OCCURRED then 
begin 
DS_JET_RCPT_QTY_JET_ADDITION_911.BUFFER.WRITE(LV_JET_RCPT_QTY); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("“JET_RCPT_QTY_JET_ADDITION_911", 
"RCPT_PROCESSOR_210"); 
end; 
end if; 
if not EXCEPTION_HAS_ OCCURRED then 
begin 


DS_MOGAS_RCPT_QTY_MOGAS_ADDITION_888.BUFFER.WRITE(LV_MOGAS_RCPT_QTY); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("MOGAS_RCPT_QTY_MOGAS_ADDITION_ 888", 
"RCPT_PROCESSOR_ 210"); 
end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 


DS_DIESEL_RCPT_QTY_DIESEL_ADDITION_836.BUFFER.WRITE(LV_DIESEL_RCPT_QTY); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("DIESEL_RCPT_QTY_DIESEL_ADDITION_836", 
"RCPT_PROCESSOR_210"); 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"RCPT_PROCESSOR_210", 
PSDL_EXCEPTION IMAGE(EXCEPTION_ID)); 
end if; 
end RCPT_PROCESSOR_210_DRIVER; 


procedure OTH_ISS_PROCESSOR_307_DRIVER is 
LV_EQ_ISS_QTY : INTEGER; 
LV_EQ_ISS_FUEL_TYPE : INTEGER; 
LV_OTH_ISS_ENABLE : BOOLEAN; 
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LV_BULK_ISS_ENABLE : BOOLEAN; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 
if not (DS_EQ_ISS_QTY_OTH_ISS_PROCESSOR_307.NEW_DATA and then 
DS_EQ_ISS_FUEL_TYPE_OTH_ISS_PROCESSOR_307.NEW_DATA) then 
return; 
end if; 


-- Data stream reads. 
begin 
DS_EQ_ISS_QTY_OTH_ISS_PROCESSOR_307.BUFFER.READ(LV_EQ _ ISS_QTY); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("EQ_ISS_QTY_OTH_ISS_PROCESSOR_307", 
"“OTH_ISS_PROCESSOR_307"); 
end; 
begin 


DS_EQ_ISS_FUEL_TYPE_OTH_ISS_PROCESSOR_307.BUFFER.READ(LV_EQ_ISS_FUEL_TYPE); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("EQ_ISS_FUEL_TYPE_OTH_ISS_PROCESSOR_307", 
"OTH_ISS_PROCESSOR_307"); 
end; 
begin 


DS_BULK_ISS_ENABLE_OTH_ISS_PROCESSOR_307.BUFFER.READ(LV_BULK_ISS_ENABLE); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("BULK_ISS_ENABLE_OTH_ISS_PROCESSOR_ 307", 
"OTH_ISS_PROCESSOR_307"); 
end; 


-- Execution trigger condition check. 
if True then 
begin 
OTH_ISS_PROCESSOR_307( 
EQ_ISS_QTY => LV_EQ_ISS_QTY, 
EQ_ISS_FUEL_TYPE => LV_EQ_ISS_FUEL_TYPE, 
OTH_ISS_ENABLE => LV_OTH_ISS_ENABLE, 
BULK_ISS_ENABLE => LV_BULK_ISS_ENABLE); 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("OTH_ISS_PROCESSOR_ 307"); 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else retum; 
end if; 


-- Exception Constraint translations. 


-- Other constraint option translations. 
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--Unconditional output translations. 
if not EXCEPTION_HAS_ OCCURRED then 
begin 


DS_OTH_ISS_ENABLE_ BULK_ISS_PROCESSOR_310.BUFFER.WRITE(LV_OTH_ISS_ENABLE); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("OTH_ISS_ENABLE_ BULK_ISS_PROCESSOR_310", 
"OTH_ISS_PROCESSOR_307"); 
end; 
begin 
DS_OTH_ISS_ENABLE_ISS_PROCESSOR_323.BUFFER.WRITE(LV_OTH_ISS_ENABLE); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("OTH_ISS_ENABLE_ISS_PROCESSOR_ 323", 
"OTH_ISS_PROCESSOR_ 307"); 
end; 
end if; 
if not EXCEPTION_HAS_ OCCURRED then 
begin 


DS_BULK_ISS_ENABLE_OTH_ISS_PROCESSOR_307.BUFFER.WRITE(LV_BULK_ISS_ENABLE); 
exception 
when BUFFER_OVERFLOW => | 
DS_DEBUG.BUFFER_OVERFLOW("BULK_ISS ENABLE OTH_ISS_PROCESSOR_307", 
"OTH_ISS_PROCESSOR_ 307"); 
end; 
begin 
DS_BULK_ISS_ENABLE_ISS_PROCESSOR_323.BUFFER.WRITE(LV_BULK_ISS_ENABLE); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("BULK_ISS_ENABLE_ISS_PROCESSOR_323", 
"OTH_ISS_PROCESSOR_307"); 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"OTH_ISS_PROCESSOR_307", 
PSDL_EXCEPTION 'IMAGE(EXCEPTION_ID)); 
end if; 
end OTH_ISS_PROCESSOR_307_DRIVER; 


procedure BULK_ISS_PROCESSOR_310_DRIVER is 
LV_BULK_ISS_QTY : INTEGER; 
LV_BULK_ISS_FUEL_TYPE : INTEGER; 
LV_BULK_ISS_ENABLE : BOOLEAN; 
LV_OTH_ISS_ENABLE : BOOLEAN; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 
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if not (DS_BULK_ISS_FUEL_TYPE_BULK_ISS_PROCESSOR_310.NEW_DATA and then 
DS_BULK_ISS_QTY_BULK_ISS_PROCESSOR_310.NEW_DATA) then 
retum; 
end if; 


-- Data stream reads. 
begin 
DS_BULK_ISS_QTY_BULK_ISS_PROCESSOR_310.BUFFER.READ(LV_BULK_ISS_QTY),; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW(""BULK_ISS_QTY_BULK_ISS_PROCESSOR_310", 
"BULK_ISS_PROCESSOR_ 310"); 
end; 
begin 


DS_BULK_ISS_FUEL_TYPE_BULK_ISS_PROCESSOR_310.BUFFER.READ(LV_BULK_ISS_FUEL_ 


TYPE); 
exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG.BUFFER_UNDERFLOW("BULK_ISS_FUEL_TYPE_BULK_ISS_PROCESSOR_310", 
"BULK_ISS_PROCESSOR_310"); 

end; 

begin 


DS_OTH_ISS_ENABLE_BULK_ISS_PROCESSOR_310.BUFFER.READ(LV_OTH_ISS_ENABLE); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("OTH_ISS_ENABLE_BULK_ISS_PROCESSOR_310", 
"BULK_ISS_PROCESSOR_310"); 
end; 


-- Execution trigger condition check. 
if True then 
begin 
BULK_ISS_PROCESSOR_310( 
BULK_ISS_QTY => LV_BULK_ISS_QTY, 
BULK_ISS_FUEL_TYPE => LV_BULK_ISS_FUEL_TYPE, 
BULK_ISS_ENABLE => LV_BULK_ISS_ENABLE, 
OTH_ISS_ENABLE => LV_OTH_ISS_ENABLE); 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("BULK_ISS_PROCESSOR_ 310"); 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED _ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 
--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 
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DS_BULK_ISS_ENABLE_ OTH_ISS_PROCESSOR_307.BUFFER.WRITE(LV_BULK_ISS_ENABLE); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("BULK_ISS_ENABLE_OTH_ISS_PROCESSOR_307", 
"BULK_ISS_-PROCESSOR_ 310"); 
end; 
begin 
DS_BULK_ISS_ENABLE_ISS_PROCESSOR_323.BUFFER.WRITE(LV_BULK_ISS_ENABLE); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("BULK_ISS_ENABLE_ISS_PROCESSOR_323", 
“"BULK_ISS_PROCESSOR_310"); 
end; 
end if; 
if not EXCEPTION_HAS_ OCCURRED then 
begin 


DS_OTH_ISS_ENABLE_BULK_ISS_PROCESSOR_310.BUFFER.WRITE(LV_OTH_ISS_ENABLE); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW (“OTH_ISS_ENABLE_BULK_ISS_PROCESSOR_310", 
“"BULK_ISS_PROCESSOR_310"); 
end; 
begin 
DS_OTH_ISS_ENABLE_ISS_PROCESSOR_323.BUFFER.WRITE(LV_OTH_ISS_ENABLE); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("OTH_ISS_ENABLE_ISS_PROCESSOR_ 323", 
“BULK_ISS_PROCESSOR_310"); 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"BULK_ISS_PROCESSOR_310", 
PSDL_EXCEPTION'IMAGE(EXCEPTION_ID)); 
end if; 
end BULK_ISS_PROCESSOR_310_DRIVER; 


procedure ISS_PROCESSOR_323_DRIVER is 
LV_BULK_ISS_ENABLE : BOOLEAN; 
LV_OTH_ISS_ENABLE : BOOLEAN; 
LV_EQ_ISS_FUEL_TYPE : INTEGER; 
LV_EQ_ISS_QTY : INTEGER; 
LV_BULK_ISS_FUEL_TYPE : INTEGER; 
LV_BULK_ISS_QTY : INTEGER; 
LV_I_DF_QTY : INTEGER; 
LV_I_MG_QTY : INTEGER; 
LV_I_JET_QTY : INTEGER; 
LV_DIESEL_ISS_QTY : INTEGER; 
LV_MOGAS_ISS_QTY : INTEGER; 
LV_JET_ISS_QTY : iNTEGER; 
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EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 
if not (DS_BULK_ISS_ENABLE _ISS_PROCESSOR_323.NEW_DATA or else 
DS_OTH_ISS_ENABLE_ISS_PROCESSOR_323.NEW_DATA) then 
return; 
end if; 


-- Data stream reads. 
begin 
DS_BULK_ISS_ENABLE_ISS_PROCESSOR_323.BUFFER.READ(LV_BULK_ISS_ENABLE); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("BULK_ISS_ENABLE_ISS_PROCESSOR_323", 
"ISS_PROCESSOR_323"); 
end; 
begin 
DS_OTH_ISS_ENABLE_ISS_PROCESSOR_323.BUFFER.READ(LV_OTH_ISS_ENABLE); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("OTH_ISS_ENABLE_ISS_PROCESSOR_ 323", 
"ISS_PROCESSOR_ 323"); 
end; 
begin 
DS_EQ_ISS_FUEL_TYPE_ISS_PROCESSOR_323.BUFFER.READ(LV_EQ_ ISS_FUEL_TYPE); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("EQ_ISS_FUEL_TYPE_ISS_PROCESSOR_323", 
"ISS_PROCESSOR_323"); 
end; 
begin 
DS_EQ_ISS_QTY_ISS_PROCESSOR_323.BUFFER.READ(LV_EQ ISS_QTY); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("EQ_ISS_QTY_ISS_PROCESSOR_323", - 
"ISS_PROCESSOR_ 323"); 
end; 
begin 


DS_BULK_ISS_FUEL_TYPE_ISS_PROCESSOR_323.BUFFER.READ(LV_BULK_ISS_FUEL_TYPE); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("BULK_ISS_FUEL_TYPE_ISS_PROCESSOR_ 323", 
"ISS_PROCESSOR_ 323"); 
end; 
begin 
DS_BULK_ISS_QTY_ISS_PROCESSOR_323.BUFFER.READ(LV_BULK_ISS_QTY); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("BULK_ISS_QTY_ISS_PROCESSOR_323", 
"ISS_PROCESSOR_ 323"); 
end; 


-- Execution trigger condition check. 
if True then 
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begin 
ISS_PROCESSOR_323( 
BULK_ISS_ENABLE => LV_BULK_ISS_ ENABLE, 
OTH_ISS_ENABLE => LV_OTH_ISS_ENABLE, 
EQ_ISS_FUEL_TYPE => LV_EQ_ISS_FUEL_TYPE, 
EQ_ISS_QTY => LV_EQ_ISS_ QTY, 
BULK_ISS_FUEL_TYPE => LV_BULK_ISS_FUEL_TYPE, 
BULK_ISS_QTY => LV_BULK_ISS_QTY, 
I_DF_QTY => LV_I_DF_ QTY, 
IMG _QTY => LV_I_LMG_OQTY, 
I_JET_QTY => LV_I_JET_QTY, 
DIESEL_ISS_QTY => LV_DIESEL_ISS_ QTY, 
MOGAS_ISS_QTY => LV_MOGAS_ISS_QTY, 
JET_ISS_QTY => LV_JET_ISS_QTY),; 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("ISS_PROCESSOR_ 323"); 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_I_DF_QTY_DF_ISS_TOTALIZER_352.BUFFER.WRITE(LV_I_DF_QTY); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("I_DF_QTY_DF_ISS_TOTALIZER_352", 
"ISS_PROCESSOR_323"); 
end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_I_MG_QTY_MG_ISS_TOTALIZER_349.BUFFER.WRITE(LV_I_MG_ QTY); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("I_MG_QTY_MG_ISS_TOTALIZER_349", 
"ISS_PROCESSOR_ 323"); 
end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_I_JET_QTY_JET_ISS_TOTALIZER_346.BUFFER.WRITE(LV_I_JET_QTY); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("I_JET_QTY_JET_ISS_TOTALIZER_346”, 
“ISS_PROCESSOR_ 323"); 
end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
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begin 


DS_DIESEL_ISS_QTY_DIESEL_SUBTRACTION_839.BUFFER.WRITE(LV_DIESEL_ISS_QTY); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("DIESEL_ISS_QTY_DIESEL_SUBTRACTION_ 839", 
"ISS_PROCESSOR_ 323"); 
end; 
end if; 
if not EXCEPTION_HAS_ OCCURRED then 
begin 


DS_MOGAS_ISS_QTY_MOGAS_SUBTRACTION_891.BUFFER.WRITE(LV_MOGAS _ISS_QTY);: 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("MOGAS_ISS_QTY_MOGAS_SUBTRACTION_891", 
"ISS_PROCESSOR_ 323"); 
end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_JET_ISS_QTY_JET_SUBTRACTION_914.BUFFER.WRITE(LV_JET_ISS_QTY); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("JET_ISS_QTY_JET_SUBTRACTION_ 914", 
"ISS_PROCESSOR_ 323"); 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"ISS_PROCES SOR_ 323", 
PSDL_EXCEPTION IMAGE(EXCEPTION_ID)); 
end if; 
end ISS_PROCESSOR_323_DRIVER; 


procedure DAILY_ISS_DB_TABLE_743_DRIVER is 
LV_DAILY_DF_ISS_TOTAL : INTEGER; 
LV_DAILY_MG_ISS_TOTAL : INTEGER; 
LV_DAILY_JET_ISS_TOTAL : INTEGER; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data tigger checks. 

if not (DS_DAILY_DF_ISS_TOTAL_DAILY_ISS_DB_TABLE_743.NEW_DATA or else 
DS_DAILY_MG_ISS_TOTAL_DAILY_ISS_DB_TABLE_743.NEW_DATA or else 
DS_DAILY_JET_ISS_TOTAL_DAILY_ISS_DB_TABLE_743.NEW_DATA) then 

retum; 
end if; 


-- Data stream reads. 
begin 
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DS_DAILY_DF_ISS_TOTAL_DAILY_ISS_DB_TABLE _743.BUFFER.READ(LV_DAILY_DF_ISS_T 
OTAL); 
exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG.B UFFER_UNDERFLOW("DAILY_DF_ISS_TOTAL_DAILY_ISS_DB_TABLE_743", 
"DAILY_ISS_DB_TABLE_743"); 

end; 

begin 


DS_DAILY_MG_ISS_TOTAL_DAILY_ISS_DB_TABLE _743.BUFFER.READ(LV_DAILY_MG_ISS_ 
TOTAL); 
exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG.BUFFER_UNDERFLOW("DAILY_MG_ISS_TOTAL_DAILY_ISS_DB_TABLE_743", 
"DAILY_ISS_DB_TABLE _ 743"); 

end; 

begin 


DS_DAILY_JET_ISS_TOTAL_DAILY_ISS_DB_TABLE_743.BUFFER.READ(LV_DAILY_JET_ISS_ 
TOTAL); 
exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG.BUFFER_UNDERFLOW("DAILY_JET_ISS_TOTAL_DAILY_ISS_DB_TABLE 743", 
"DAILY_ISS_DB_TABLE_743"); 
end; 


-- Execution trigger condition check. 
if True then 
begin 
DAILY_ISS_DB_TABLE_743( 
DAILY_DF_ISS_TOTAL => LV_DAILY_DF_ISS_ TOTAL, 
DAILY_MG_ISS_TOTAL => LV_DAILY_MG_ISS_TOTAL, 
DAILY_JET_ISS_TOTAL => LV_DAILY_JET_ISS_TOTAL); 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("DAILY_ISS_DB_TABLE_743"); 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED _ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 
--Unconditional output translations. 
-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 


DS_DEBUG.UNHANDLED_EXCEPTION( 
"DAILY_ISS_DB_TABLE_743", 
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PSDL_EXCEPTION' IMAGE(EXCEPTION_ID)); 
end if; 
end DAILY_ISS_DB_TABLE 743 DRIVER; 


procedure DAILY_RCPT_DB_TABLE_740_DRIVER is 
LV_DAILY_DF_RCPT_TOTAL : INTEGER; 
LV_DAILY_MG_RCPT_TOTAL : INTEGER; 
LV_DAILY_JET_RCPT_TOTAL : INTEGER; 


EXCEPTION_HAS_ OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 

if not (DS_DAILY_DF_RCPT_TOTAL_DAILY_RCPT_DB_TABLE_740.NEW_DATA or else 
DS_DAILY_MG_RCPT_TOTAL_DAILY_RCPT_DB_TABLE_740.NEW_DATA or else 
DS_DAILY_JET_RCPT_TOTAL_DAILY_RCPT_DB_TABLE_740.NEW_DATA) then 

retum; 
end if; 


-- Data stream reads. 
begin 


DS_DAILY_DF_RCPT_TOTAL_DAILY_RCPT_DB_TABLE_740.BUFFER.READ(LV_DAILY_DF_R 
CPT_TOTAL); 
exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG.BUFFER_UNDERFLOW("DAILY_DF_RCPT_TOTAL_DAILY_RCPT_DB_TABLE_740" 
, DAILY_RCPT_DB_TABLE_740"); 

end; 

begin 


DS_DAILY_MG_RCPT_TOTAL_DAILY_RCPT_DB_TABLE_740.BUFFER.READ(LV_DAILY_MG_ 
RCPT_TOTAL); 
exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG.BUFFER_UNDERFLOW("DAILY_MG_RCPT_TOTAL_DAILY_RCPT_DB_TABLE_740 
", "DAILY_RCPT_DB_TABLE_740"); 

end; 

begin 


DS_DAILY_JET_RCPT_TOTAL_DAILY_RCPT_DB_TABLE_740.BUFFER.READ(LV_DAILY_JET_ 
RCPT_TOTAL); 
exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG.BUFFER_UNDERFLOW("DAILY_JET_RCPT_TOTAL_DAILY_RCPT_DB_TABLE 740 
","DAILY_RCPT_DB_TABLE_740"); 
end; 


-- Execution tngger condition check. 
if True then 
begin 
DAILY_RCPT_DB_TABLE_740( 
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DAILY_DF_RCPT_TOTAL => LV_DAILY_DF_RCPT_TOTAL, 
DAILY_MG_RCPT_TOTAL => LV_DAILY_MG RCPT_TOTAL, 
DAILY_JET_RCPT_TOTAL => LV_DAILY_JET_RCPT_TOTAL); 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("DAILY_RCPT_DB_TABLE_740"); 
EXCEPTION_HAS_OCCURRED := true: 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else retum; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 
--Unconditional output translations. 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
“"DAILY_RCPT_DB_TABLE_740", 
PSDL_EXCEPTION'IMAGE(EXCEPTION_ID)); 
end if; 
end DAILY_RCPT_DB_TABLE_740_DRIVER; 


procedure MONTHLY_REPORTER_601_DRIVER is 
LV_MO_ISS_JET_TOTAL : INTEGER; 
LV_MO_ISS_MG_TOTAL : INTEGER; 
LV_MO_ISS_DF_TOTAL : INTEGER; 
LV_MO_RCPT_JET_TOTAL : INTEGER; 
LV_MO_RCPT_MG_TOTAL : INTEGER; 
LV_MO_RCPT_DF_TOTAL : INTEGER; 
LV_MONTH_DF_ISS_TOTAL : INTEGER; 
LV_MONTH_DF_RCPT_TOTAL : INTEGER; 
LV_MONTH_MG_ISS_TOTAL : INTEGER; 
LV_MONTH_MG_RCPT_TOTAL : INTEGER; 
LV_MONTH_JET_RCPT_TOTAL : INTEGER; 
LV_MONTH_JET_ISS_TOTAL : INTEGER; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 


-- Data stream reads. 
begin 


DS_MO_ISS_JET_TOTAL_MONTHLY_REPORTER_601.BUFFER.READ(LV_MO_ISS_JET_TOTAL 
i 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("MO_ISS_JET_TOTAL_MONTHLY_REPORTER_601", 
“"MONTHLY_REPORTER_ 601"); 
end; 
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begin 


DS_MO_ISS_MG_TOTAL_MONTHLY_REPORTER_601.BUFFER.READ(LV_MO_ISS MG_ TOTAL 
iF 

exception 

when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("MO_ISS_MG_TOTAL_MONTHLY_REPORTER_ 601", 

"MONTHLY_REPORTER_601"); 

end; 

begin 


DS_MO_ISS_DF_TOTAL_MONTHLY_REPORTER_601.BUFFER.READ(LV_MO_ISS_DF_TOTAL); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("MO_ISS_DF_TOTAL_MONTHLY_REPORTER_ 601", 
"MONTHLY_REPORTER_601"); 
end; 
begin 


DS_MO_RCPT_JET_TOTAL_MONTHLY_REPORTER_601.BUFFER.READ(LV_MO_RCPT_JET_TO 
TAL); 
exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG.BUFFER_UNDERFLOW("MO_RCPT_JET_TOTAL_MONTHLY_REPORTER_601", 
"MONTHLY_REPORTER_601"); 

end; 

begin 


DS_MO_RCPT_MG_TOTAL_MONTHLY_REPORTER_601.BUFFER.READ(LV_MO_RCPT_MG_TO 
TAL); 
exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG.BUFFER_UNDERFLOW("MO_RCPT_MG_TOTAL_MONTHLY_REPORTER_601", 
"MONTHLY_REPORTER_601"); 

end; 

begin 


DS_MO_RCPT_DF_TOTAL_MONTHLY_REPORTER_601.BUFFER.READ(LV_MO_RCPT_DF_TOT 
AL); 
exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG.BUFFER_UNDERFLOW("MO_RCPT_DF_TOTAL_MONTHLY_REPORTER_601", 
"MONTHLY_REPORTER_601"); 
end: 


-- Execution trigger condition check. 
if True then 

begin 

MONTHLY_REPORTER_601( 
MO_ISS_JET_TOTAL => LV_MO_ISS_JET_TOTAL, 
MO_ISS_MG_TOTAL => LV_MO_ISS_MG_TOTAL, 
MO_ISS_DF_TOTAL => LV_MO_ISS_DF_TOTAL, 
MO_RCPT_JET_TOTAL => LV_MO_RCPT_JET_TOTAL, 
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MO_RCPT_MG_TOTAL => LV_MO_RCPT_MG_ TOTAL, 
MO_RCPT_DF_TOTAL => LV_MO_RCPT_DF TOTAL, 
MONTH_DF_ISS_TOTAL => LV_MONTH_DF_ISS_TOTAL, 
MONTH_DF_RCPT_TOTAL => LV_MONTH_DF_RCPT_TOTAL, 
MONTH_MG_ISS_TOTAL => LV_MONTH_MG_ISS_TOTAL, 
MONTH_MG_RCPT_TOTAL => LV_MONTH_MG_RCPT_TOTAL, 
MONTH_JET_RCPT_TOTAL => LV_MONTH_JET_RCPT_TOTAL, 
MONTH_JET_ISS_TOTAL => LV_MONTH_JET_ISS_TOTAL); 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("“MONTHLY_REPORTER_601"); 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_ EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 


DS_MO_ISS_JET_TOTAL_MO_JET_ISS_TOTALIZER_598.BUFFER.WRITE(LV_MO_ISS_JET_TOT 
AL); 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG.BUFFER_OVERFLOW("MO_ISS_JET_TOTAL_MO_JET_ISS_TOTALIZER_598", 
“"MONTHLY_REPORTER_ 601"); 

end; 

begin 


DS_MO_ISS_JET_TOTAL_MONTHLY_REPORTER_601.BUFFER.WRITE(LV_MO_ISS JET_TOTA 
L); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("MO_ISS_JET_TOTAL_MONTHLY_REPORTER_601", 
"MONTHLY_REPORTER_ 601"); 
end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 


DS_MO_ISS_MG_TOTAL_MO_MG_ISS_TOTALIZER_595.BUFFER.WRITE(LV_MO_ISS_MG_TOT 
AL); 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG.BUFFER_OVERFLOW("“MO_ISS_MG_TOTAL_MO_MG_ISS_TOTALIZER_ 595", 
“"MONTHLY_REPORTER_601"); 

end; 

begin 
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DS_MO_ISS_MG_TOTAL_MONTHLY_REPORTER_601.BUFFER.WRITE(LV_MO_ISS_.MG_TOTA 
E) 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("MO_ISS_MG_TOTAL_MONTHLY_REPORTER_ 601", 
"MONTHLY_REPORTER_ 601"); 
end; 
end if; 
if not EXCEPTION _HAS_ OCCURRED then 
begin 


DS_MO_ISS_DF_TOTAL_MO_DF_ISS_TOTALIZER_592.BUFFER.WRITE(LV_MO_ISS_DF_TOTA 
L); 

exception 

when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("MO_ISS_DF_TOTAL_MO_DF_ISS_TOTALIZER_592", 

"MONTHLY_REPORTER_601"); 

end; 

begin 


DS_MO_ISS_DF_TOTAL_MONTHLY_REPORTER_601.BUFFER.WRITE(LV_MO_ISS_DF_TOTAL) 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("MO_ISS_DF_TOTAL_MONTHLY_REPORTER_ 601", 
“MONTHLY_REPORTER_ 601"); 
end; 
end if; 
if not EXCEPTION_HAS_ OCCURRED then 
begin 


DS_MO_RCPT_JET_TOTAL_MO_JET_RCPT_TOTALIZER_589.BUFFER.WRITE(LV_MO_RCPT_J 
ET_TOTAL); 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG.BUFFER_OVERFLOW("MO_RCPT_JET_TOTAL_MO_JET_RCPT_TOTALIZER_589", 
"MONTHLY_REPORTER_ 601"); 

end; 

begin 


DS_MO_RCPT_JET_TOTAL_MONTHLY_REPORTER_601.BUFFER.WRITE(LV_MO_RCPT_JET_T 
OTAL); 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG.BUFFER_OVERFLOW("MO_RCPT_JET_TOTAL_MONTHLY_REPORTER_ 601", 
"MONTHLY_REPORTER_ 601"); 
end; 
end if; 
if not EXCEPTION _HAS_ OCCURRED then 
begin 


DS_MO_RCPT_MG_TOTAL_MO_MG_RCPT_TOTALIZER_586.BUFFER.WRITE(LV_MO_RCPT_M 
G_TOTAL); 
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exception 
when BUFFER_OVERFLOW => 


DS_DEBUG.BUFFER_OVERFLOW("MO_RCPT_MG_TOTAL_MO_MG_RCPT_TOTALIZER_586", 
"MONTHLY_REPORTER_601"); 

end; 

begin 


DS_MO_RCPT_MG_TOTAL_MONTHLY_REPORTER_601.BUFFER.WRITE(LV_MO_RCPT_MG_T 
OTAL); 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG.BUFFER_OVERFLOW("MO_RCPT_MG_TOTAL_ MONTHLY_REPORTER_ 601", 
"MONTHLY_REPORTER_ 601"); 
end; 
end if; 
if not EXCEPTION_HAS_ OCCURRED then 
begin 


DS_MO_RCPT_DF_TOTAL_MO_DF_RCPT_TOTALIZER_583.BUFFER.WRITE(LV_MO_RCPT_DF 
_TOTAL); 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG.BUFFER_OVERFLOW("MO_RCPT_DF_TOTAL_MO_DF_RCPT_TOTALIZER_583", 
"MONTHLY_REPORTER_601"); 

end; 

begin 


DS_MO_RCPT_DF_TOTAL_MONTHLY_REPORTER_601.BUFFER.WRITE(LV_MO_RCPT_DF_TO 
TAL); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("MO_RCPT_DF_TOTAL_MONTHLY_REPORTER_ 601", 
"MONTHLY_REPORTER_ 601"); 
end; 
end if; 
if not EXCEPTION_HAS_ OCCURRED then 
begin 


DS_MONTH_DF_ISS_TOTAL_DIESEL_ISS_ACCT_PROC_934.BUFFER.WRITE(LV_MONTH_DF_I 
SS_TOTAL); 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG.BUFFER_OVERFLOW("MONTH_DF_ISS_TOTAL_DIESEL_ISS_ACCT_PROC_934", 
"MONTHLY_REPORTER_ 601"); 
end; 
end if; 
if not EXCEPTION_HAS_ OCCURRED then 
begin 


DS_MONTH_DF_RCPT_TOTAL_DIESEL_RCPT_ACCT_PROC_937.BUFFER.WRITE(LV_MONTH_ 


DF_RCPT_TOTAL); 
exception 


183 


when BUFFER_OVERFLOW => 


DS_DEBUG.BUFFER_OVERFLOW("MONTH_DF_RCPT_TOTAL_DIESEL_RCPT_ACCT PROC_ 93 
7", "“MONTHLY_REPORTER_ 601"); 
end; 
end if; 
if not EXCEPTION_HAS_ OCCURRED then 
begin 


DS_MONTH_MG_ISS_TOTAL_MOGAS_ISS_ACCT_PROC_940.BUFFER.WRITE(LV_MONTH_MG 
_ISS_TOTAL); 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG.BUFFER_OVERFLOW("“MONTH_MG_ISS_TOTAL_MOGAS_ISS_ACCT PROC_940", 
"MONTHLY_REPORTER_ 601"); 
end; 
end if; 
if not EXCEPTION_HAS_ OCCURRED then 
begin 


DS_MONTH_MG_RCPT_TOTAL_MOGAS_RCPT_ACCT_PROC_943. BUFFER. WRITE(LV_MONTH 
_MG_RCPT_TOTAL); 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG.BUFFER_OVERFLOW("MONTH_MG_RCPT_TOTAL_MOGAS_RCPT_ACCT_PROC_9 
43", "MONTHLY_REPORTER_ 601"); 
end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 


DS_MONTH_JET_RCPT_TOTAL_JET_RCPT_ACCT_PROC_949. BUFFER. WRITE(LV_MONTH_JET 
_RCPT_TOTAL); 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG.BUFFER_OVERFLOW("MONTH_JET_RCPT_TOTAL_JET_RCPT_ACCT_PROC_949", 
"MONTHLY_REPORTER_ 601"); 
end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 


DS_MONTH_JET_ISS_TOTAL_JET_ISS_ACCT_PROC_946.BUFFER.WRITE(LV_MONTH_JET_ISS 
_TOTAL); 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG.BUFFER_OVERFLOW("MONTH_JET_ISS_TOTAL_JET_ISS_ACCT_PROC_946", 
"MONTHLY_REPORTER_601"); 
end; 
end if; 
-- PSDL Exception handler. 
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if EXCEPTION_HAS_ OCCURRED then 
DS_DEBUG.UNHANDLED_ EXCEPTION( 
"MONTHLY_REPORTER_ 601", 
PSDL_EXCEPTION IMAGE(EXCEPTION_ID)); 
end if; 
end MONTHLY_REPORTER_601_DRIVER;: 


procedure MO_JET_ISS_TOTALIZER_598_DRIVER is 
LV_DAILY_JET_ISS_TOTAL : INTEGER; 
LV_MO_ISS_JET_TOTAL : INTEGER; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 
if not (DS_DAILY_JET_ISS_TOTAL_MO_JET_ISS_TOTALIZER_598.NEW_DATA) then 
retum; 
end if; 


-- Data stream reads. 
begin 


DS_MO_ISS_JET_TOTAL_MO_JET_ISS_TOTALIZER_598.BUFFER.READ(LV_MO_ISS_JET_TOT 
AL); 
exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG.BUFFER_UNDERFLOW("MO_ISS_JET_TOTAL_MO_JET_ISS_TOTALIZER_ 598", 
"MO_JET_ISS_TOTALIZER_598"); 

end; 

begin 


DS_DAILY_JET_ISS_TOTAL_MO_JET_ISS_TOTALIZER_598.BUFFER.READ(LV_DAILY_JET_IS 
S_TOTAL); 
exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG.BUFFER_UNDERFLOW("DAILY_JET_ISS_TOTAL_MO_JET_ISS_TOTALIZER_598", 
"MO_JET_ISS_TOTALIZER_598"); 
end; 


-- Execution trigger condition check. 
if True then 
begin 
MO_JET_ISS_TOTALIZER_598( 
DAILY_JET_ISS_TOTAL => LV_DAILY_JET_ISS_TOTAL, 
MO_ISS_JET_TOTAL => LV_MO_ISS_JET_TOTAL); 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("MO_JET_ISS_TOTALIZER_ 598"); 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 
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-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 


DS_MO_ISS_JET_TOTAL_MO_JET_ISS_TOTALIZER_598.BUFFER.WRITE(LV_MO_ISS_JET_TOT 
AL); 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG.BUFFER_OVERFLOW("MO_ISS_JET_TOTAL_MO_JET_ISS_TOTALIZER_598", 
"MO_JET_ISS_TOTALIZER_598"); 

end; 

begin 


DS_MO_ISS_JET_TOTAL_MONTHLY_REPORTER_601.BUFFER.WRITE(LV_MO_ISS_JET_TOTA 
L); 

exception 

when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("MO_ISS_JET_TOTAL_MONTHLY_REPORTER_ 601", 

"MO_JET_ISS_TOTALIZER_598"); 

end; 

end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"MO_JET_ISS_TOTALIZER_598", 
PSDL_EXCEPTION IMAGE(EXCEPTION_ID)); 
end if; 
end MO_JET_ISS_TOTALIZER_598_ DRIVER; 


procedure MO_MG_ISS_TOTALIZER_595_DRIVER is 
LV_DAILY_MG_ISS_TOTAL : INTEGER; 
LV_MO_ISS_MG_TOTAL : INTEGER; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data tigger checks. 
if not (DS_DAILY_MG_ISS_TOTAL_MO_MG_ISS_TOTALIZER_595.NEW_DATA) then 
retum; 
end if; 


-- Data stream reads. 
begin 
DS_MO_ISS_MG_TOTAL_MO_MG_ISS_TOTALIZER_595.BUFFER.READ(LV_MO_ISS_MG_TOT 
AL); 
exception 
when BUFFER_UNDERFLOW => 
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DS_DEBUG.BUFFER_UNDERFLOW("MO_ISS_MG_TOTAL_MO_MG_ISS_TOTALIZER_595", 
"MO_MG_ISS_TOTALIZER_595"); 

end; 

begin 


DS_DAILY_MG_ISS_TOTAL_MO_MG_ISS_TOTALIZER_595.BUFFER.READ(LV_DAILY_MG_IS 
S_TOTAL); 
exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG.BUFFER_UNDERFLOW("DAILY_MG_ISS_TOTAL_MO_MG_ISS_TOTALIZER_595", 
"MO_MG_ISS_TOTALIZER_ 595"); 
end; 


-- Execution trigger condition check. 
if True then 
begin 
MO_MG_ISS_TOTALIZER_595( 
DAILY_MG_ISS_TOTAL => LV_DAILY_MG_ISS_TOTAL, 
MO_ISS_MG_TOTAL => LV_MO_ISS_MG_TOTAL); 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("MO_MG_ISS_TOTALIZER_595"); 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 


DS_MO_ISS_MG_TOTAL_MO_MG_ISS_TOTALIZER_595.BUFFER.WRITE(LV_MO_ISS_MG_TOT 
AL); 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG.BUFFER_OVERFLOW("MO_ISS_MG_TOTAL_MO_MG_ISS_TOTALIZER_595", 
"MO_MG_ISS_TOTALIZER_ 595"); 

end; 

begin 


DS_MO_ISS_MG_TOTAL_MONTHLY_REPORTER_601.BUFFER.WRITE(LV_MO_ISS_MG_TOTA 
L); 

exception 

when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("MO_ISS_MG_TOTAL_MONTHLY_REPORTER_601", 

"MO_MG_ISS_TOTALIZER_595"); 

end; 

end if: 
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-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"MO_MG_ISS_TOTALIZER_595", 
PSDL_EXCEPTION IMAGE(EXCEPTION_ID)); 
end if; 
end MO_MG_ISS_TOTALIZER_595_DRIVER; 


procedure MO_DF_ISS_TOTALIZER_592_ DRIVER is 
LV_DAILY_DF_ISS_TOTAL : INTEGER; 
LV_MO_ISS_DF_TOTAL: INTEGER: 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 
if not (DS_DAILY_DF_ISS_TOTAL_MO_DF_ISS_TOTALIZER_592.NEW_DATA) then 
retum, 
end if; 


-- Data stream reads. 
begin 


DS_MO_ISS_DF_TOTAL_MO_DF_ISS_TOTALIZER_592.BUFFER.READ(LV_MO_ISS_DF_TOTAL 
yy 

exception 

when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("MO_ISS_DF_TOTAL_MO_DF_ISS_TOTALIZER_592", 

"MO_DF_ISS_TOTALIZER_592"); 

end; 

begin 


DS_DAILY_DF_ISS_TOTAL_MO_DF_ISS_TOTALIZER_592.BUFFER.READ(LV_DAILY_DF_ISS_ 
TOTAL); 
exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG.BUFFER_UNDERFLOW("DAILY_DF_ISS_TOTAL_MO_DF_ISS_TOTALIZER_592", 
"MO_DF_ISS_TOTALIZER_592"); 


end; 


-- Execution trigger condition check. 
if True then 
begin 
MO_DF_ISS_TOTALIZER_592( 
DAILY_DF_ISS_TOTAL => LV_DAILY_DF_ISS_TOTAL, 
MO_ISS_DF_TOTAL => LV_MO_ISS_DF_TOTAL); 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("MO_DF_ISS_TOTALIZER_592"); 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
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end if; 
-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 


DS_MO_ISS_DF_TOTAL_MO_DF_ISS_TOTALIZER_592.BUFFER.WRITE(LV_MO_ISS_DF_TOTA 
L); 

exception 

when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("MO_ISS_DF_TOTAL_MO_DF_ISS_TOTALIZER_592", 

"MO_DF_ISS_TOTALIZER_592"); 

end; 

begin 


DS_MO_ISS_DF_TOTAL_MONTHLY_REPORTER_601.BUFFER.WRITE(LV_MO_ISS_DF_TOTAL) 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("MO_ISS_DF_TOTAL_MONTHLY_REPORTER_ 601", 
"MO_DF_ISS_TOTALIZER_592"); 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"MO_DF_ISS_TOTALIZER_592", 
PSDL_EXCEPTION'IMAGE(EXCEPTION_ID)); 
end if; 
end MO_DF_ISS_TOTALIZER_592_DRIVER; 


procedure MO_JET_RCPT_TOTALIZER_589_DRIVER 1s 
LV_DAILY_JET_RCPT_TOTAL : INTEGER; 
LV_MO_RCPT_JET_TOTAL : INTEGER; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 
if not (DS_DAILY_JET_RCPT_TOTAL_MO_JET_RCPT_TOTALIZER_589.NEW_DATA) then 


retum; 
end if; 


-- Data stream reads. 
begin 


DS_DAILY_JET_RCPT_TOTAL_MO_JET_RCPT_TOTALIZER_589.BUFFER.READ(LV_DAILY_JE 
T_RCPT_TOTAL); 
exception 
when BUFFER_UNDERFLOW => 
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DS_DEBUG.BUFFER_UNDERFLOW("“DAILY_JET_RCPT_TOTAL_MO_JET_RCPT_TOTALIZER_5 
89", "MO_JET_RCPT_TOTALIZER_589"): 

end; 

begin 


DS_MO_RCPT_JET_TOTAL_MO_JET_RCPT_TOTALIZER_589.BUFFER.READ(LV_MO_RCPT_JE 
T_TOTAL); 
exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG.BUFFER_UNDERFLOW("MO_RCPT_JET_TOTAL_MO_JET_RCPT_TOTALIZER_ 589", 
"MO_JET_RCPT_TOTALIZER_ 589"); 
end; 


-- Execution trigger condition check. 
if True then 
begin 
MO_JET_RCPT_TOTALIZER_589( 
DAILY_JET_RCPT_TOTAL => LV_DAILY_JET_RCPT_TOTAL, 
MO_RCPT_JET_TOTAL => LV_MO_RCPT_JET_TOTAL); 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("MO_JET_RCPT_TOTALIZER_ 589"); 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 


DS_MO_RCPT_JET_TOTAL_MO_JET_RCPT_TOTALIZER_589.BUFFER.WRITE(LV_MO_RCPT_J 
ET_TOTAL); 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG.BUFFER_OVERFLOW("MO_RCPT_JET_TOTAL_MO_JET_RCPT_TOTALIZER_ 589", 
"MO_JET_RCPT_TOTALIZER_ 589"); 

end; 

begin 


DS_MO_RCPT_JET_TOTAL_MONTHLY_REPORTER_601.BUFFER.WRITE(LV_MO_RCPT_JET_T 
OTAL); 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG.BUFFER_OVERFLOW("MO_RCPT_JET_TOTAL_MONTHLY_REPORTER_ 601", 


"MO_JET_RCPT_TOTALIZER_589"); 
end; 
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end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"MO_JET_RCPT_TOTALIZER_ 589", 
PSDL_EXCEPTION IMAGE(EXCEPTION_ID)); 
end if; 
end MO_JET_RCPT_TOTALIZER_589_DRIVER; 


procedure MO_MG_RCPT_TOTALIZER_586_DRIVER is 
LV_DAILY_MG_RCPT_TOTAL : INTEGER: 
LV_MO_RCPT_MG_TOTAL : INTEGER; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 
if not (DS_DAILY_MG_RCPT_TOTAL_MO_MG_RCPT_TOTALIZER_586.NEW_DATA) then 
retum; 
end if; 


-- Data stream reads. 
begin 


DS_DAILY_MG_RCPT_TOTAL_MO_MG_RCPT_TOTALIZER_586.BUFFER.READ(LV_DAILY_M 
G_RCPT_TOTAL); 
exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG.BUFFER_UNDERFLOW("DAILY_MG_RCPT_TOTAL_MO_MG_RCPT_TOTALIZER_5 
86", "MO_MG_RCPT_TOTALIZER_586"); 

end; 

begin 


DS_MO_RCPT_MG_TOTAL_MO_MG_RCPT_TOTALIZER_586.BUFFER.READ(LV_MO_RCPT_M 
G_TOTAL); 
exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG.BUFFER_UNDERFLOW("MO_RCPT_MG_TOTAL_MO_MG_RCPT_TOTALIZER_586", 
"MO_MG_RCPT_TOTALIZER_ 586"); 
end; 


-- Execution trigger condition check. 
if True then 
begin 
MO_MG_RCPT_TOTALIZER_586( 
DAILY_MG_RCPT_TOTAL => LV_DAILY_MG_RCPT_TOTAL, 
MO_RCPT_MG_TOTAL => LV_MO_RCPT_MG_TOTAL); 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("MO_MG_RCPT_TOTALIZER_586"); 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
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end; 
else retum; 
end if: 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_ OCCURRED then 
begin 


DS_MO_RCPT_MG_TOTAL_MO_MG_RCPT_TOTALIZER_586.BUFFER.WRITE(LV_MO_RCPT_M 
G_TOTAL); 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG.BUFFER_OVERFLOW("MO_RCPT_MG_ TOTAL _ MO _MG_RCPT_TOTALIZER_ 586", 
"MO_MG_RCPT_TOTALIZER_ 586"); 

end; 

begin 


DS_MO_RCPT_MG_TOTAL_MONTHLY_REPORTER_601.BUFFER.WRITE(LV_MO_RCPT_MG_T 
OTAL); 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG.BUFFER_OVERFLOW("MO_RCPT_MG_TOTAL_MONTHLY_REPORTER_ 601", 
"MO_MG_RCPT_TOTALIZER_586"); 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"MO_MG_RCPT_TOTALIZER_ 586", 
PSDL_EXCEPTION'IMAGE(EXCEPTION_ID)); 
end if; 
end MO_MG_RCPT_TOTALIZER_586_DRIVER; 


procedure MO_DF_RCPT_TOTALIZER_583_DRIVER is 
LV_DAILY_DF_RCPT_TOTAL : INTEGER; 
LV_MO_RCPT_DF_TOTAL : INTEGER; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data tigger checks. 
if not (DS_DAILY_DF_RCPT_TOTAL_MO_DF_RCPT_TOTALIZER_583.NEW_DATA) then 
retum; 
end if; 


-- Data stream reads. 
begin 
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DS_DAILY_DF_RCPT_TOTAL_MO_DF_RCPT_TOTALIZER_583.BUFFER.READ(LV_DAILY_DF_ 
RCPT_TOTAL); 
exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG.BUFFER_UNDERFLOW("DAILY_DF_RCPT_TOTAL_MO_DF_RCPT_TOTALIZER_58 
3", "MO_DF_RCPT_TOTALIZER_583"): 

end; 

begin 


DS_MO_RCPT_DF_TOTAL_MO_DF_RCPT_TOTALIZER_583.BUFFER.READ(LV_MO_RCPT_DF_ 
TOTAL); 
exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG.BUFFER_UNDERFLOW("MO_RCPT_DF_TOTAL_MO_DF_RCPT_TOTALIZER_583", 
"MO_DF_RCPT_TOTALIZER_583"); 
end; 


-- Execution trigger condition check. 
if True then 
begin 
MO_DF_RCPT_TOTALIZER_583( 
DAILY_DF_RCPT_TOTAL => LV_DAILY_DF_RCPT_TOTAL, 
MO_RCPT_DF_TOTAL => LV_MO_RCPT_DF_TOTAL); 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("MO_DF_RCPT_TOTALIZER_ 583"); 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_ EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 


DS_MO_RCPT_DF_TOTAL_MO_DF_RCPT_TOTALIZER_583.BUFFER.WRITE(LV_MO_RCPT_DF 
_TOTAL); 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG.BUFFER_OVERFLOW("MO_RCPT_DF_TOTAL_MO_DF_RCPT_TOTALIZER_ 583", 
"MO_DF_RCPT_TOTALIZER_583"); 

end; 

begin 


DS_MO_RCPT_DF_TOTAL_MONTHLY_REPORTER_601.BUFFER.WRITE(LV_MO_RCPT_DF_TO 


TAL); 
exception 
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when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("MO_RCPT_DF_TOTAL_MONTHLY_REPORTER_ 601", 
"MO_DF_RCPT_TOTALIZER_583"); 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
“"MO_DF_RCPT_TOTALIZER_583", 
PSDL_EXCEPTION IMAGE(EXCEPTION_ID)); 
end if; 
end MO_DF_RCPT_TOTALIZER_583_DRIVER; 


procedure DIESEL_ISS_ACCT_PROC_934_DRIVER is 
LV_MONTH_DF_ISS_TOTAL : INTEGER; 
LV_TOTAL_MO_DF_ISS : INTEGER; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 
if not (DS_MONTH_DF_ISS_TOTAL_DIESEL_ISS_ACCT_PROC_934.NEW_DATA) then 
retum; 
end if; 


-- Data stream reads. 
begin 


DS_MONTH_DF_ISS_TOTAL_DIESEL_ISS_ACCT_PROC_934.BUFFER.READ(LV_MONTH_DF_IS 
S_TOTAL); 
exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG.BUFFER_UNDERFLOW("MONTH_DF_ISS_TOTAL_DIESEL_ISS_ACCT_PROC_ 934", 
“"DIESEL_ISS_ACCT_PROC_934"); 
end; 


-- Execution tigger condition check. 
if True then 
begin 
DIESEL_ISS_ACCT_PROC_934( 
MONTH_DF_ISS_TOTAL => LV_MONTH_DF_ISS_TOTAL, 
TOTAL_MO_DF_ISS => LV_TOTAL_MO_DF_ISS); 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("DIESEL_ISS_ACCT_PROC_934"); 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else retum; 
end if; 


-- Exception Constraint translations. 
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-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_TOTAL_MO_DF_ISS_DF_ACCT_CALC_952.BUFFER.WRITE(LV_TOTAL_MO_DF_ISS); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("TOTAL_MO_DF_ISS_DF_ACCT_CALC_952", 
“"DIESEL_ISS_ACCT_PROC_934"); 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"DIESEL_ISS_ACCT_PROC_934", 
PSDL_EXCEPTION'IMAGE(EXCEPTION_ID)); 
end if; 
end DIESEL_ISS_ACCT_PROC_934_DRIVER; 


procedure DIESEL_RCPT_ACCT_PROC_937_DRIVER is 
LV_MONTH_DF_RCPT_TOTAL : INTEGER: 
LV_TOTAL_MO_DF_RCPT : INTEGER: 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 
if not (DS_MONTH_DF_RCPT_TOTAL_DIESEL_RCPT_ACCT_PROC_937.NEW_DATA) then 
retum; 
end if; 


-- Data stream reads. 
begin 


DS_MONTH_DF_RCPT_TOTAL_DIESEL_RCPT_ACCT_PROC_937.BUFFER.READ(LV_MONTH_ 
DF_RCPT_TOTAL); 
exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG.BUFFER_UNDERFLOW("“MONTH_DF_RCPT_TOTAL_DIESEL_RCPT_ACCT_PROC_ 
937”, "DIESEL_RCPT_ACCT_PROC_937"); 
end; 


-- Execution trigger condition check. 
if True then 
begin 
DIESEL_RCPT_ACCT_PROC_937( 
MONTH_DF_RCPT_TOTAL => LV_MONTH_DF_RCPT_TOTAL, 
TOTAL_MO_DF_RCPT => LV_TOTAL_MO_DF_RCPT); 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("DIESEL_RCPT_ACCT_PROC_937"); 
EXCEPTION_HAS_OCCURRED := true; 
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EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else retum; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 


begin 


DS_TOTAL_MO_DF_RCPT_DF_ACCT_CALC_952.BUFFER.WRITE(LV_TOTAL_MO_DF_RCPT); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("TOTAL_MO_DF_RCPT_DF_ACCT_CALC_952", 
“"DIESEL_RCPT_ACCT_PROC_ 937"); 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"DIESEL_RCPT_ACCT_PROC_937", 
PSDL_EXCEPTION'IMAGE(EXCEPTION_ID)); 
end if; 
end DIESEL_RCPT_ACCT_PROC_937_DRIVER; 


procedure MOGAS_ISS_ACCT_PROC_940_DRIVER is 
LV_MONTH_MG_ISS_TOTAL : INTEGER; 
LV_TOTAL_MO_MG_ISS : INTEGER; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data tigger checks. 
if not (DS_MONTH_MG_ISS_TOTAL_MOGAS_ISS_ACCT_PROC_940.NEW_DATA) then 
retum; 
end if; 


-- Data stream reads. 
begin 


DS_MONTH_MG_ISS_TOTAL_MOGAS_ISS_ACCT_PROC_940.BUFFER.READ(LV_MONTH_MG_ 
ISS_TOTAL); 
exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG.BUFFER_UNDERFLOW("MONTH_MG_ISS_TOTAL_MOGAS_ISS_ACCT_PROC_940" 
, MOGAS_ISS_ACCT_PROC_940"); 
end; 


-- Execution tigger condition check. 
if True then 
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begin 
MOGAS_ISS_ACCT_PROC_940( 
MONTH_MG_ISS_TOTAL => LV_MONTH_MG_ISS_TOTAL, 
TOTAL_MO_MG_ISS => LV_TOTAL_MO_MG ISS): 
exception 


when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("MOGAS_ISS_ACCT_PROC_940"); 


EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED _ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 


begin 


DS_TOTAL_MO_MG_ISS_MG_ACCT_CALC_955.BUFFER.WRITE(LV_TOTAL_MO_MG _ISS); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("“TOTAL_MO_MG_ISS_MG_ACCT_CALC_955", 
"MOGAS_ISS_ACCT_PROC_940"); 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"MOGAS_ISS_ACCT_PROC_940", 
PSDL_EXCEPTION'IMAGE(EXCEPTION_ID)); 
end if; 
end MOGAS_ISS_ACCT_PROC_940_DRIVER; 


procedure MOGAS_RCPT_ACCT_PROC_943_DRIVER is 
LV_MONTH_MG_RCPT_TOTAL : INTEGER; 
LV_TOTAL_MO_MG_RCPT : INTEGER; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 
if not (DS_MONTH_MG_RCPT_TOTAL_MOGAS_RCPT_ACCT_PROC_943.NEW_DATA) then 


retum; 
end if; 


-- Data stream reads. 
begin 


DS_MONTH_MG_RCPT_TOTAL_MOGAS_RCPT_ACCT_PROC_943.BUFFER.READ(LV_MONTH_ 
MG_RCPT_TOTAL); 
exception 
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when BUFFER_UNDERFLOW => 


DS_DEBUG.BUFFER_UNDERFLOW("“MONTH_MG_RCPT_TOTAL_MOGAS_RCPT_ACCT_ PROC 
_943", "“MOGAS_RCPT_ACCT_PROC_943"); 
end; 


-- Execution trigger condition check. 
if True then 
begin 
MOGAS_RCPT_ACCT_PROC_943( 
MONTH_MG_RCPT_TOTAL => LV_MONTH_MG_RCPT_TOTAL, 
TOTAL_MO_MG_RCPT => LV_TOTAL_MO_MG_RCPT); 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("MOGAS_RCPT_ACCT_PROC_943"): 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 


DS_TOTAL_MO_MG_RCPT_MG_ACCT_CALC_955.BUFFER.WRITE(LV_TOTAL_MO_MG_RCPT) 


exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("“TOTAL_MO_MG_RCPT_MG_ACCT_CALC_955", 
“"MOGAS_RCPT_ACCT_PROC_943"); 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"MOGAS_RCPT_ACCT_PROC_943", 
PSDL_EXCEPTION'IMAGE(EXCEPTION_ID)); 
end if; 
end MOGAS_RCPT_ACCT_PROC_943_DRIVER; 


procedure JET_ISS_ACCT_PROC_946_DRIVER is 
LV_MONTH_JET_ISS_TOTAL : INTEGER; 
LV_TOTAL_MO_JET_ISS : INTEGER; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data tigger checks. 
if not (DS_MONTH_JET_ISS_TOTAL_JET_ISS_ACCT_PROC_946.NEW_DATA) then 
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retum;: 
end if; 


-- Data stream reads. 
begin 


DS_MONTH_JET_ISS_TOTAL_JET_ISS_ACCT_PROC_946.BUFFER.READ(LV_MONTH_JET_ISS _ 
TOTAL); 


exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG.BUFFER_UNDERFLOW("MONTH_JET_ISS_TOTAL_JET_ISS_ACCT_PROC_946", 
"JET_ISS_ACCT_PROC_946"); 
end; 


-- Execution trigger condition check. 
if True then 
begin 
JET_ISS_ACCT_PROC_946( 
MONTH_JET_ISS_TOTAL => LV_MONTH_JET_ISS_TOTAL, 
TOTAL_MO_JET_ISS => LV_TOTAL_MO_JET_ISS); 
exception 
when others => 
DS_DEBUG.UNDECLARED_ EXCEPTION("JET_ISS_ACCT_PROC_946"); 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED _ADA_EXCEPTION; 
end; 
else return; 
end 1f; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 


begin 


DS_TOTAL_MO_JET_ISS_JET_ACCT_CALC_958.BUFFER.WRITE(LV_TOTAL_MO_JET_ISS); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("TOTAL_MO_JET_ISS_JET_ACCT_CALC_958", 
"JET_ISS_ACCT_PROC_946"); 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"JET_ISS_ACCT_PROC_946", 
PSDL_EXCEPTION IMAGE(EXCEPTION_ID)); 
end if; 
end JET_ISS_ACCT_PROC_946_DRIVER; 


procedure JET_RCPT_ACCT_PROC_949_DRIVER is 


199 


LV_MONTH_JET_RCPT_TOTAL : INTEGER; 
LV_TOTAL_MO_JET_RCPT : INTEGER; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 
if not (DS_MONTH_JET_RCPT_TOTAL_JET_RCPT_ACCT_PROC_949.NEW_DATA) then 
retum; 
end if; 


-- Data stream reads. 
begin 


DS_MONTH_JET_RCPT_TOTAL_JET_RCPT_ACCT_PROC_949.BUFFER.READ(LV_MONTH_JET_ 
RCPT_TOTAL); 
exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG.BUFFER_UNDERFLOW("MONTH_JET_RCPT_TOTAL_JET_RCPT_ACCT_PROC_949" 
, "JET _RCPT_ACCT_PROC_949"); 
end; 


-- Execution trigger condition check. 
if True then 
begin 
JET_RCPT_ACCT_PROC_949( 
MONTH_JET_RCPT_TOTAL => LV_MONTH_JET_RCPT_TOTAL, 
TOTAL_MO_JET_RCPT => LV_TOTAL_MO_JET_RCPT); 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("JET_RCPT_ACCT_PROC_949"): 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 


DS_TOTAL_MO_JET_RCPT_JET_ACCT_CALC_958.BUFFER.WRITE(LV_TOTAL_MO_JET_RCPT) 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("“TOTAL_MO_JET_RCPT_JET_ACCT_CALC_958", 
"JET_RCPT_ACCT_PROC_949"); 
end; 
end if; 


-- PSDL Exception handler. 
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if EXCEPTION_HAS_ OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"JET_RCPT_ACCT_PROC_949", 
PSDL_EXCEPTION'IMAGE(EXCEPTION_ID)); 
end if; 
end JET_RCPT_ACCT_PROC_949_DRIVER: 


procedure DF_ACCT_CALC_952_DRIVER is 
LV_TOTAL_MO_DF_ISS : INTEGER; 
LV_TOTAL_MO_DF_RCPT : INTEGER; 
LV_DIESEL_QTY_AVAILABLE : INTEGER; 
LV_TOLERANCE_DF : BOOLEAN; 
LV_OPENING_INV_DIESEL : INTEGER; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 
if not (DS_TOTAL_MO_DF_ISS_DF_ACCT_CALC_952.NEW_DATA and then 
DS_TOTAL_MO_DF_RCPT_DF_ACCT_CALC_952.NEW_DATA) then 
retum; 
end if; 


-- Data stream reads. 
begin 
DS_TOTAL_MO_DF_ISS_DF_ACCT_CALC_952.BUFFER.READ(LV_TOTAL_MO_DF_ISS); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("“TOTAL_MO_DF_ISS_DF_ACCT_CALC_952", 
"DF_ACCT_CALC_952"); 
end; 
begin 


DS_TOTAL_MO_DF_RCPT_DF_ACCT_CALC_952.BUFFER.READ(LV_TOTAL_MO_DF_RCPT); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("“TOTAL_MO_DF_RCPT_DF_ACCT_CALC_952", 
"DF_ACCT_CALC_952"); 
end; 
begin 


DS_OPENING_INV_DIESEL_DF_ACCT_CALC_952.BUFFER.READ(LV_OPENING_INV_DIESEL); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("OPENING_INV_DIESEL_DF_ACCT_CALC_952", 
"DF_ACCT_CALC_952");. 
end; 
begin 


DS_DIESEL_QTY_AVAILABLE_DF_ACCT_CALC_952.BUFFER.READ(LV_DIESEL_QTY_AVAIL 
ABLE); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("DIESEL_QTY_AVAILABLE_DF_ACCT_CALC_952", 
"DF_ACCT_CALC_952"); 
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end: 


-- Execution trigger condition check. 
if True then 
begin 
DF_ACCT_CALC_952( 
TOTAL_MO_DF_ISS => LV_TOTAL_MO_DF_ISS, 
TOTAL_MO_DF_RCPT => LV_TOTAL_MO_DF _RCPT, 
DIESEL_QTY_AVAILABLE => LV_DIESEL_QTY_AVAILABLE, 
TOLERANCE_DF => LV_TOLERANCE DF, 
OPENING_INV_DIESEL => LV_OPENING_INV_DIESEL); 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("DF_ACCT_CALC_ 952"); 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION;: 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin . 
DS_TOLERANCE_DF_GUI_ACC_OFFICER_179.BUFFER.WRITE(LV_TOLERANCE_DF); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("TOLERANCE_DF_GUI_ACC_OFFICER_179", 
"DF_ACCT_CALC_952"); 
end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 


DS_OPENING_INV_DIESEL_DF_ACCT_CALC_952.BUFFER.WRITE(LV_OPENING_INV_DIESEL) 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("OPENING_INV_DIESEL_DF_ACCT_CALC_952", 
"DF_ACCT_CALC_952"); 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"DF_ACCT_CALC_952", 
PSDL_EXCEPTION IMAGE(EXCEPTION_ID)); 
end if; 
end DF_ACCT_CALC_952_DRIVER; 


procedure MG_ACCT_CALC_955_DRIVER is 
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LV_TOTAL_MO_MG_ISS : INTEGER; 
LV_TOTAL_MO_MG_RCPT : INTEGER; 
LV_MOGAS_QTY_AVAILABLE : INTEGER; 
LV_TOLERANCE_MG : BOOLEAN; 
LV_OPENING_INV_MOGAS : INTEGER; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 
if not (DS_TOTAL_MO_MG_ISS_MG_ACCT_CALC_955.NEW_DATA and then 
DS_TOTAL_MO_MG_RCPT_MG_ACCT_CALC_955.NEW_DATA) then 
retum; 
end if; 


-- Data stream reads. 
begin 
DS_TOTAL_MO_MG_ISS_MG_ACCT_CALC_955.BUFFER.READ(LV_TOTAL_MO_MG _ISS); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("TOTAL_MO_MG_ISS_MG_ACCT_CALC_955", 
"MG_ACCT_CALC_955"); 
end; © 
begin 


DS_TOTAL_MO_MG_RCPT_MG_ACCT_CALC_955.BUFFER.READ(LV_TOTAL_MO_MG_RCPT); 
exception 
when BUFFER __ UNDERFLOW = => 
DS_DEBUG.BUFFER “UNDERFLOW("TOTAL. MO_MG_RCPT_MG_ACCT_CALC_ 955", 
"MG_ACCT_CALC_955"); 
end; 
begin 


DS_OPENING_INV_MOGAS_MG_ACCT_CALC_955.BUFFER.READ(LV_OPENING_INV_MOGAS 
); 

exception 

when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("OPENING_INV_MOGAS_MG_ACCT_CALC_955", 

"MG_ACCT_CALC_955"); 

end; 

begin 


DS_MOGAS_QTY_AVAILABLE_MG_ACCT_CALC_955.BUFFER.READ(LV_MOGAS_QTY_AVAI 
LABLE); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("MOGAS_QTY_AVAILABLE_MG_ACCT_CALC_955", 
"MG_ACCT_CALC_955"); 
end; 


-- Execution trigger condition check. 
if True then 
begin 
MG_ACCT_CALC_955( 
TOTAL_MO_MG_ISS => LV_TOTAL_MO_MG_ISS, 
TOTAL_MO_MG_RCPT => LV_TOTAL_MO_MG_RCPT, 
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MOGAS_QTY_AVAILABLE => LV_MOGAS_QTY_AVAILABLE, 
TOLERANCE_MG => LV_TOLERANCE_MG, 
OPENING_INV_MOGAS => LV_OPENING_INV_MOGAS): 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("MG_ACCT_CALC_955"); 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_TOLERANCE_MG_GUI_ACC_OFFICER_179.BUFFER.WRITE(LV_TOLERANCE_MG); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("TOLERANCE_MG_GUI_ACC_OFFICER_ 179", 
"MG_ACCT_CALC_955"); 
end; 
end if; 
if not EXCEPTION_HAS_ OCCURRED then 
begin 


DS_OPENING_INV_MOGAS_MG_ACCT_CALC_955.BUFFER.WRITE(LV_OPENING_INV_MOGA 
S); 

exception 

when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("OPENING_INV_MOGAS_MG_ACCT_CALC_955", 

"MG_ACCT_CALC_955"); 

end; 

end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"MG_ACCT_CALC_955", 
PSDL_EXCEPTION'IMAGE(EXCEPTION_ID)); 
end if; 
end MG_ACCT_CALC_955_DRIVER; 


procedure JET_ACCT_CALC_958_DRIVER is 
LV_TOTAL_MO_JET_ISS : INTEGER; 
LV_TOTAL_MO_JET_RCPT : INTEGER; 
LV_JET_QTY_AVAILABLE : INTEGER; 
LV_TOLERANCE_JET : BOOLEAN; 
LV_OPENING_INV_JET : INTEGER; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
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begin 
-- Data trigger checks. 
if not (DS_TOTAL_MO_JET_ISS_JET_ACCT_CALC_958.NEW_DATA and then 
DS_TOTAL_MO_JET_RCPT_JET_ACCT_CALC_958.NEW_DATA) then 
retum; 
end if; 


-- Data stream reads. 
begin 
DS_TOTAL_MO_JET_ISS_JET_ACCT_CALC_958.BUFFER.READ(LV_TOTAL_MO_JET_ISS); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("TOTAL_MO_JET_ISS_JET_ACCT_CALC_958", 
"JET_ACCT_CALC_958"); 
end; 
begin 


DS_TOTAL_MO_JET_RCPT_JET_ACCT_CALC_958.BUFFER.READ(LV_TOTAL_MO_JET_RCPT); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("“TOTAL_MO_JET_RCPT_JET_ACCT_CALC_958", 
"JET_ACCT_CALC_958"); 
end; 
begin 
DS_OPENING_INV_JET_JET_ACCT_CALC_958.BUFFER.READ(LV_OPENING_INV_JET); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("“OPENING_INV_JET_JET_ACCT_CALC_958", 
"JET_ACCT_CALC_958"); 
end; 
begin 


DS_JET_QTY_AVAILABLE_JET_ACCT_CALC_958.BUFFER.READ(LV_JET_QTY_AVAILABLE); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("JET_QTY_AVAILABLE_JET_ACCT_CALC_958", 
"JET_ACCT_CALC_958"); 
end; 


-- Execution trigger condition check. 
if True then 
begin 
JET_ACCT_CALC_958&( 
TOTAL_MO_JET_ISS => LV_TOTAL_MO_JET_ISS, 
TOTAL_MO_JET_RCPT => LV_TOTAL_MO_JET_RCPT, 
JET_QTY_AVAILABLE => LV_JET_QTY_AVAILABLE, 
TOLERANCE_JET => LV_TOLERANCE_JET, 
OPENING_INV_JET => LV_OPENING_INV_JET); 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("“JET_ACCT_CALC_ 958"); 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 
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-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_TOLERANCE_JET_GUI_ACC_OFFICER_179.BUFFER.WRITE(LV_TOLERANCE_JET); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("“TOLERANCE_JET_GUI_ACC_OFFICER_179", 
"JET_ACCT_CALC_958"); 
end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_OPENING_INV_JET_JET_ACCT_CALC_958.BUFFER.WRITE(LV_OPENING_INV_JET); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("“OPENING_INV_JET_JET_ACCT_CALC_958", 
"JET_ACCT_CALC_958"); 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"JET_ACCT_CALC_958", 
PSDL_EXCEPTION' IMAGE(EXCEPTION_ID)); 
end if; 
end JET_ACCT_CALC_958_DRIVER; 


procedure DIESEL_GAGE_854_DRIVER is 
LV_DF_QTY_ON_HAND : INTEGER; 
LV_DIESEL_QTY_AVAILABLE : INTEGER; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 
if not (DS_DF_QTY_ON_HAND_DIESEL_GAGE_854.NEW_DATA) then 
retum; 
end if; 


-- Data stream reads. 
begin 
DS_DF_QTY_ON_HAND_DIESEL_GAGE_854.BUFFER.READ(LV_DF_QTY_ON_HAND); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("DF_QTY_ON_HAND_DIESEL_GAGE_ 854", 
“DIESEL_GAGE_854"); 
end; 


-- Execution trigger condition check. 
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if True then 
begin 
DIESEL_GAGE_ 854( 
DF_QTY_ON_HAND => LV_DF_QTY_ON_HAND, 
DIESEL_QTY_AVAILABLE => LV_DIESEL_QTY_AVAILABLE); 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("DIESEL_GAGE_ 854"); 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else retumn; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_ OCCURRED then 
begin 


DS_DIESEL_QTY_AVAILABLE_ DF_ACCT CALC 952.BUFFER.WRITE(LV_DIESEL_QTY_AVAI 
LABLE); 

exception 

when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("DIESEL_QTY_AVAILABLE_DF_ACCT_CALC_ 952", 

"DIESEL_GAGE_ 854"); 

end; 

begin 


DS_DIESEL_QTY_AVAILABLE_GUI_FUEL_ON_HAND_124.BUFFER.WRITE(LV_DIESEL QTY_ 
AVAILABLE); 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG.BUFFER_OVERFLOW("DIESEL_QTY_AVAILABLE_GUI_FUEL_ON_HAND_ 124", 
"DIESEL_GAGE_854"); 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"DIESEL_GAGE_ 854", 
PSDL_EXCEPTION IMAGE(EXCEPTION_ID)); 
end if; 
end DIESEL_GAGE_854_DRIVER; 


procedure DIESEL_SUBTRACTION_839_DRIVER is 
LV_DIESEL_ISS_QTY : INTEGER; 
LV_DF_QTY_ON_HAND: INTEGER: 
LV_DIESEL_VOLUME : INTEGER: 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
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EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 
if not (DS_DIESEL_ISS_QTY_DIESEL_ SUBTRACTION_839.NEW_DATA) then 
retum; 
end if; 


-- Data stream reads. 
begin 


DS_DIESEL_VOLUME_DIESEL_SUBTRACTION_839.BUFFER.READ(LV_DIESEL_VOLUME); 
exception 
when BUFFER_UNDERFLOW => | 
DS_DEBUG.BUFFER_UNDERFLOW("DIESEL_ VOLUME_DIESEL_SUBTRACTION_ 839", 
"DIESEL_SUBTRACTION_839"); 
end; 
begin 
DS_DIESEL_ISS_QTY_DIESEL_SUBTRACTION_839.BUFFER.READ(LV_DIESEL_ISS_QTY); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("DIESEL_ISS_QTY_DIESEL_ SUBTRACTION_ 839", 
“"DIESEL_SUBTRACTION_ 839"); 
end; 


-- Execution trigger condition check. 
if True then 
begin 
DIESEL_SUBTRACTION_ 839( 
DIESEL_ISS_QTY => LV_DIESEL_ISS_QTY, 
DF_QTY_ON_HAND => LV_DF_QTY_ON_HAND, 
DIESEL_VOLUME => LV_DIESEL_VOLUME); 
exception 
when others => 
DS_DEBUG.UNDECLARED EXCEPTION("DIESEL_SUBTRACTION_ 839"); 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_DF_QTY_ON_HAND_DIESEL_GAGE_854.BUFFER.WRITE(LV_DF_QTY_ON_HAND); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("DF_QTY_ON_HAND_DIESEL_GAGE_854", 
"DIESEL_SUBTRACTION_ 839"); 
end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 
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DS_DIESEL_VOLUME_DIESEL_ADDITION_836.BUFFER.WRITE(LV_DIESEL_VOLUME); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("DIESEL_VOLUME_DIESEL_ADDITION_836", 
"DIESEL_SUBTRACTION_ 839"); 
end; 
begin 


DS_DIESEL_VOLUME_DIESEL_SUBTRACTION_839.BUFFER.WRITE(LV_DIESEL_VOLUME); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("DIESEL_VOLUME_DIESEL_ SUBTRACTION_ 839" 
"DIESEL_SUBTRACTION_ 839"); 
end; 
end if; 
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-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"DIESEL_SUBTRACTION_ 839", 
PSDL_EXCEPTION' IMAGE(EXCEPTION_ID)); 
end if; 
end DIESEL_SUBTRACTION_839_DRIVER: 


procedure DIESEL_ADDITION_836_DRIVER is 
LV_DIESEL_RCPT_QTY : INTEGER; 
LV_DF_QTY_ON_HAND : INTEGER; 
LV_DIESEL_VOLUME : INTEGER; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 
if not (DS_DIESEL_RCPT_QTY_DIESEL_ADDITION_836.NEW_DATA) then 
retum; 
end if; 


-- Data stream reads. 
begin 
DS_DIESEL_VOLUME_DIESEL_ADDITION_836.BUFFER.READ(LV_DIESEL_VOLUME); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("DIESEL_VOLUME_DIESEL_ADDITION_836", 
"DIESEL_ADDITION_836"); 
end; 
begin 
DS_DIESEL_RCPT_QTY_DIESEL_ADDITION_836.BUFFER.READ(LV_DIESEL_RCPT_QTY); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW("DIESEL_RCPT_QTY_DIESEL_ADDITION_ 836", 
"DIESEL_ADDITION_836"); 
end; 


-- Execution trigger condition check. 
if True then 
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begin 
DIESEL_ADDITION_836( 
DIESEL_RCPT_QTY => LV_DIESEL_RCPT_QTY, 
DF_QTY_ON_HAND => LV_DF_QTY_ON_HAND, 
DIESEL_ VOLUME => LV_DIESEL_VOLUME): 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("DIESEL_ADDITION_ 836"): 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_DF_QTY_ON_HAND_DIESEL_GAGE_854.BUFFER.WRITE(LV_DF_QTY_ON_HAND); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("DF_QTY_ON_HAND_DIESEL_GAGE_ 854", 
“DIESEL_ADDITION_ 836"); 
end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_DIESEL_VOLUME_DIESEL_ADDITION_836.BUFFER.WRITE(LV_DIESEL_VOLUME); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("DIESEL_VOLUME_DIESEL_ADDITION_836", 
"DIESEL_ADDITION_836"); 
end; 
begin 


DS_DIESEL_VOLUME_DIESEL_SUBTRACTION_839.BUFFER.WRITE(LV_DIESEL_VOLUME); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW("DIESEL_VOLUME_DIESEL_SUBTRACTION_ 839", 
"DIESEL_ADDITION_836"); 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"DIESEL_ADDITION_ 836", 
PSDL_EXCEPTION' IMAGE(EXCEPTION_ID)); 
end if; 
end DIESEL_ADDITION_836_DRIVER; 
end FUEL_SUBS YSTEM_1_DRIVERS; 


package fuel_subsystem_1_DYNAMIC_SCHEDULERS is 
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procedure START_DYNAMIC_SCHEDULE; 
procedure STOP_DYNAMIC_SCHEDULE; 
end fuel_subsystem_1_DY NAMIC_SCHEDULERS; 


with fuel_subsystem_1_DRIVERS; use fuel_subsystem_1_DRIVERS; 
with PRIORITY_DEFINITIONS; use PRIORITY_DEFINITIONS; 
package body fuel_subsystem_1_DYNAMIC_SCHEDULERS is 


task type DY NAMIC_SCHEDULE_TYPE is 
pragma priority (DYNAMIC_SCHEDULE_PRIORITY); 
entry START; 
end DYNAMIC_SCHEDULE_TYPE; 
for DY NAMIC_SCHEDULE_TYPE'STORAGE_ SIZE use 100_000; 
DYNAMIC_SCHEDULE : DYNAMIC_SCHEDULE_TYPE; 


done : boolean := false; 
procedure STOP_DYNAMIC_SCHEDULE is 
begin 
done := true; 
end STOP_DYNAMIC_SCHEDULE; 


task body DYNAMIC_SCHEDULE_TYPE is 
begin 
accept START; 
loop 
gui_bulk_receipt_3_DRIVER; 
exit when done; 


gui_other_receipt_6_DRIVER; 
exit when done; 


gui_bulk_issue_9_DRIVER; 
exit when done; 


gui_other_issue_12_DRIVER; 
exit when done; 


jet_gage_917_DRIVER; 
exit when done; 


mogas_gage_894_DRIVER; 
exit when done; 


diesel_gage_854_DRIVER; 
exit when done; 


bulk_rcpt_db_table_495_DRIVER; 
exit when done; 


bulk_rcpt_processor_198_DRIVER; 
exit when done; 


other_rcpt_db_table_501_DRIVER; 
exit when done; 
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oth_rcpt_processor_207_DRIVER: 
exit when done; 


rcpt_processor_210_DRIVER; 
exit when done; 


bulk_iss_db_table_498_DRIVER;: 
exit when done; 


bulk_iss_processor_310_DRIVER; 
exit when done; 


other_iss_db_table_504_DRIVER;: 
exit when done; 


oth_iss_processor_307_DRIVER; 
exit when done; 


iss_processor_323_DRIVER; 
exit when done; 


jet_acct_calc_958_DRIVER; 
exit when done; 


mg_acct_calc_955_DRIVER; 
exit when done; 


daily_rcpt_db_table_740_DRIVER; 
exit when done; 


mo_df_rcpt_totalizer_583_ DRIVER; 
exit when done; 


daily_iss_db_table_743_DRIVER; 
exit when done; 


mo_df_iss_totalizer_592_ DRIVER: 
exit when done; 


mo_jet_iss_totalizer_598_DRIVER; 
exit when done; 


mo_jet_rcpt_totalizer_589_DRIVER; 
exit when done; 


mo_mg_1iss_totalizer_S95_DRIVER; 
exit when done; 


mo_mg_rcpt_totalizer_586_DRIVER; 
exit when done; 


diesel_iss_acct_proc_934_DRIVER;: 
exit when done; 


diesel_rcpt_acct_proc_937_DRIVER; 
exit when done; 
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jet_iss_acct_proc_946 DRIVER, 
exit when done; 


jet_rcpt_acct_proc 949 DRIVER; 
exit when done; 


mogas _iss_acct_proc_940 DRIVER; 
exit when done; 


mogas rcpt_acct_proc_943 DRIVER; 
exit when done; 


gui_fuel_on_hand_124 DRIVER; 
exit when done; 


df_acct_calc_952 DRIVER; 
exit when done; 


jet_rcpt_totalizer 280 DRIVER; 
exit when done; 


mg _rcpt_totalizer_ 277 DRIVER; 
exit when done; 


df_rcpt_totalizer_274_ DRIVER; 
exit when done; 


jet_addition_911 DRIVER; 
exit when done; 


mogas addition _888 DRIVER; 
exit when done; 


diesel_addition 836 DRIVER; 
exit when done; 


df iss totalizer_ 352 DRIVER; 
exit when done; 


mg_iss_totalizer_349 DRIVER; 
exit when done; 


jet_iss_totalizer 346 DRIVER; 
exit when done; 


jet_subtraction 914 DRIVER; 
exit when done; 


mogas_subtraction 89] DRIVER; 
exit when done; 


diesel subtraction 839 DRIVER; 
exit when done; 


gui_acc_officer_179 DRIVER; 
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exit when done; 


end loop; 
end DYNAMIC _SCHEDULE_TYPE; 


procedure START_DYNAMIC_ SCHEDULE is 
begin 

DYNAMIC SCHEDULE.START; 
end START DYNAMIC_SCHEDULE; 


end fuel_subsystem_1_ DYNAMIC SCHEDULERS,; 


package fuel_subsystem_1_STATIC_SCHEDULERS is 
procedure START_STATIC_SCHEDULE; 

procedure STOP_STATIC_ SCHEDULE: 

end fuel_subsystem_1 _STATIC _SCHEDULERS; 


with fuel_subsystem_1_ DRIVERS; use fuel_subsystem_1_ DRIVERS; 


with PRIORITY DEFINITIONS; use PRIORITY DEFINITIONS; 
with PSDL_TIMERS; use PSDL_TIMERS; 

with TEXT IO; use TEXT_IO; 

package body fuel_subsystem_1_ STATIC _SCHEDULERS is 


task type STATIC_SCHEDULE_TYPE is 

pragma priority (STATIC_ SCHEDULE _ PRIORITY); 

entry START; 

end STATIC_SCHEDULE_TYPE; 

for STATIC_SCHEDULE_ ‘TYPE'STORAGE_ SIZE use 200_ 000; 
STATIC SCHEDULE : STATIC _SCHEDULE_TYPE; 


done : boolean := false; 
procedure STOP_STATIC_SCHEDULE is 
begin 
done := true; 
end STOP_STATIC_SCHEDULE; 


task body STATIC_SCHEDULE_TYPE is 
PERIOD : duration; 
daily reporter 410 START_TIME1 : duration; 
daily reporter 410 STOP_TIME]1 : duration; 
monthly _reporter_601_START_TIME2? : duration; 
monthly _reporter_601_STOP_TIME2 : duration; 
daily _reporter_410 START_TIMES3 : duration; 
daily reporter 410 STOP _TIME3 : duration; 
daily reporter_410 START _TIME4: duration; 
daily reporter_410 STOP_TIME4 : duration; 
daily reporter 410 START TIMES: duration; 
daily reporter 410 STOP TIMES : duration; 
daily_reporter_410 START_TIME6: duration; 
daily reporter 410 STOP TIMEG6: duration; 
daily_reporter_410 START_TIME7: duration; 
daily reporter 410 STOP _TIME7: duration; 
daily reporter 410 START_TIMES : duration; 
daily reporter_410 STOP_TIMES8 : duration; 
daily reporter_410 START TIMES®: duration; 
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daily reporter_410 STOP TIMES : duration; 
daily reporter_410 START TIME10: duration; 
daily reporter_410 STOP_TIME10: duration: 
daily _reporter_410 START _TIME11 : duration; 
daily _reporter_410_ STOP_TIME1] : duration; 
daily reporter_410 START _TIME12 : duration; 
daily reporter_410 STOP _TIME12 : duration; 
daily reporter_410 START TIME]3 : duration; 
daily_reporter_410_ STOP_TIME13 : duration; 
daily_reporter_410 START_TIME14: duration; 
daily _reporter_410 STOP _TIME14: duration; 
daily reporter_410 START TIMES : duration; 
daily reporter 410 STOP_TIME1S5 : duration; 
daily _reporter_410_ START_TIME16 : duration; 
daily_reporter_410_STOP_TIME16: duration; 
daily reporter_410 START_TIME17: duration; 
daily reporter_410 STOP _TIME17 : duration; 
daily reporter_410 START _TIME]8 : duration; 
daily _reporter_410 STOP _TIME18 : duration; 
daily reporter_410 START_TIME19 : duration; 
daily reporter_410 STOP_TIME19 : duration; 
daily reporter_410 START_TIME20 : duration; 
daily _reporter_410 STOP _TIME20 : duration; 
daily reporter_410 START_TIME21 : duration; 
daily reporter_410_STOP_TIME21 : duration; 
daily reporter_410 START _TIME2?2 : duration; 
daily reporter_410 STOP _TIME2?2 : duration; 
daily _reporter_410 START _TIME23 : duration; 
daily_reporter_410_STOP_TIME23 : duration; 
daily_reporter_410 START_TIME24: duration; 
daily reporter_410_ STOP _TIME24 : duration; 
daily reporter_410 START_TIME25 : duration; 
daily _reporter_410_ STOP_TIME25 : duration; 
daily reporter_410 START_TIME26: duration; 
daily reporter_410 STOP_TIME26 : duration, 
daily _reporter_410 START TIME27 : duration; 
daily_reporter_ 410_ STOP_TIME27 : duration; 
daily reporter_410 START_TIME28 : duration; 
daily reporter 410 STOP_ TIME28 : duration; 
daily reporter 410 START TIME29 : duration; 
daily _reporter_410 STOP_TIME29 : duration; 
daily _reporter_410_START_TIME30: duration; 
daily _reporter_ 410 STOP_TIME30 : duration; 
daily reporter_410 START_TIME3]1 : duration; 
daily_reporter_410_ STOP_TIME3]1 : duration; 
schedule_timer : TIMER := NEW_TIMER; 
begin 
accept START; 
PERIOD := TARGET_TO HOST (duration( 1.08000E+05)); 
daily _reporter_410_ START TIME] := TARGET_TO HOST(duration( 0.00000E+00)); 
daily _reporter_410 STOP TIME] := TARGET TO HOST (duration( 7.50000E-01)); 
monthly_reporter_601_ START TIME2 := TARGET TO HOST(duration( 7.50000E-01)); 
monthly _reporter_601_STOP_TIME2 := TARGET_TO HOST (duration( 1.50000E+00)); 
daily _reporter_410 START_TIME3 := TARGET _TO HOST (duration( 3.60000E+03)); 
daily reporter_410 STOP_TIME3 = TARGET _TO_HOST(duration( 3.60075E+03)); 
daily reporter 410 START_TIME4 := TARGET_TO HOST(duration( 7.20000E+03)); 
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daily_reporter_410 STOP_TIME4 :;= TARGET_TO_HOST(duration( 7.20075E+03)); 
daily reporter 410 START_TIMES := TARGET_TO_HOST(duration( 1.08000E+04)); 
daily _reporter_410 STOP_TIMES := TARGET TO HOST(duration( 1.08008E+04)); 
daily reporter 410 START _TIME6 := TARGET TO HOST(duration( 1.44000E+04)); 
daily_reporter_410 STOP_TIME6 := TARGET TO HOST(duration( 1.44008E+04)),; 
daily_reporter_410 START_TIME7 := TARGET TO _HOST(duration( 1.80000E+04)); 
daily_reporter_410 STOP_TIME7 := TARGET_TO HOST(duration( 1.80008E+04)); 
daily _reporter_410 START_TIME8 := TARGET TO HOST(duration( 2.16000E+04)); 
daily_reporter_410 STOP_TIME8 := TARGET_TO_HOST(duration( 2.16008E+04)); 
daily _reporter_410 START_TIME9 := TARGET_TO_ HOST (duration( 2.52000E+04)); 
daily _reporter_410 STOP_TIME9 := TARGET_TO_HOST(duration( 2.52008E+04)); 
daily reporter_410 START_TIME10 := TARGET_TO_HOST(duration( 2.88000E+04)); 
daily reporter 410 STOP_TIME10 := TARGET _TO HOST(duration( 2.88008E+04)): 
daily reporter_ 410 START _TIME11 := TARGET _ TO HOST(duration( 3.24000E+04)),; 
daily_reporter_410 STOP_TIME11 := TARGET_TO HOST (duration( 3.24008E+04)); 
daily _reporter_410 START _TIME12 := TARGET_TO HOST (duration( 3.60000E+04)); 
daily reporter 410 STOP_TIME12 := TARGET TO HOST(duration( 3.60008E+04)); 
daily reporter_ 410 START_TIME13 := TARGET TO HOST(duration( 3.96000E+04)); 
daily reporter 410 STOP_TIME13 := TARGET_TO HOST(duration( 3.96008E+04)); 
daily _reporter_410 START_TIME14 := TARGET _TO_ HOST(duration( 4.32000E+04)); 
daily reporter_410 STOP_TIME14 := TARGET TO HOST(duration( 4.32008E+04)); 
daily_reporter_410 START_TIME15 := TARGET_TO HOST(duration( 4.68000E+04)); 
daily_reporter_410 STOP_TIME15 := TARGET TO HOST(duration( 4.68008E+04)); 
daily_reporter_410 START_TIME16 := TARGET _ TO HOST(duration( 5.04000E+04)),; 
daily reporter 410 STOP_TIME16 := TARGET TO HOST (duration( 5.04008E+04)), 
daily reporter_410 START _TIME17 := TARGET TO HOST(duration( 5.40000E+04)); 
daily_reporter_410 STOP_TIME17 := TARGET_TO HOST<(duration( 5.40008E+04)); 
daily_reporter_410 START _TIME18 := TARGET_TO_ HOST(duration( 5.76000E+04)); 
daily reporter 410 STOP_TIME18 := TARGET TO_HOST(duration( 5.76008E+04)): 
daily_reporter_410 START_TIME19 := TARGET _ TO HOST(duration( 6.12000E+04)); 
daily _reporter_410 STOP _TIME19 := TARGET TO HOST(duration( 6.12008E+04)); 
daily reporter 410 START_TIME20 := TARGET_TO_HOST(duration( 6.48000E+04)); 
daily_reporter 410 STOP_TIME20 := TARGET_TO_HOST(duration( 6.48008E+04)); 
daily reporter_ 410 START_TIME21 := TARGET _TO HOST(duration( 6.84000E+04)); 
daily _reporter_410 STOP_TIME21 := TARGET_TO_ HOST (duration( 6.84008E+04)); 
daily reporter 410 START_TIME22 := TARGET TO HOST(duration( 7.20000E+04)); 
daily_reporter_410_ STOP_TIME22 := TARGET_TO_HOST(duration( 7.20008E+04)); 
daily _reporter_410 START _TIME23 := TARGET TO HOST (duration( 7.56000E+04)); 
daily _reporter_410 STOP_TIME23 := TARGET TO HOST(duration( 7.56008E+04)); 
daily reporter 410 START _TIME24 := TARGET_TO HOST(duration( 7.92000E+04)); 
daily _reporter_410 STOP_TIME24 := TARGET _TO_ HOST(duration( 7.92008E+04)); 
daily _reporter_410 START_TIME25 := TARGET TO HOST(duration( 8.28000E+04)); 
daily _reporter_410 STOP_TIME25 := TARGET TO HOST (duration( 8.28008E+04)); 
daily reporter 410 START_TIME26 := TARGET_TO HOST(duration( 8.64000E+04)); 
daily_reporter_410 STOP_TIME26 := TARGET_TO HOST(duration( 8.64008E+04)); 
daily_reporter 410 START_TIME27 := TARGET TO HOST (duration( 9.00000E+04)); 
daily_reporter_410 STOP_TIME27 := TARGET _TO_HOST(duration( 9.00008E+04)); 
daily_reporter_410 START_TIME28 := TARGET_TO_HOST(duration( 9.36000E+04)); 
daily_reporter_ 410 STOP_TIME28 := TARGET TO HOST(duration( 9.36008E+04)); 
daily _reporter_410 START _TIME29 := TARGET TO HOST(duration( 9.72000E+04)); 
daily _reporter_410_STOP_TIME29 := TARGET _TO HOST(duration( 9.72008E+04)); 
daily_reporter_410_ START_TIME30 := TARGET _TO_HOST(duration( 1.00800E+05)); 
daily_reporter 410 STOP_TIME30 := TARGET_TO_HOST(duration( 1.00801E+05)); 
daily_reporter_410 START_TIME31 := TARGET _TO_HOST<(duration( 1.04400E+05)); 
daily_reporter_410_ STOP_TIME31 := TARGET TO HOST (duration( 1.04401E+05)); 
START(schedule_timer); 
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loop 

delay(daily_reporter_410 START TIMEI - HOST DURATION(schedule_timer)); 

daily_reporter_410 DRIVER; 

if HOST DURATION(schedule_timer) > daily reporter 410 STOP TIME] then 
PUT_LINE("timing error from operator daily reporter 410"); 
SUBTRACT _HOST_TIME FROM_ALL_ TIMERS(HOST_DURATION(schedule_timer) - 

daily reporter 410 STOP_TIME]); 
end if; 
exit when done; 


delay(monthly_reporter_601 START _TIME2 - HOST DURATION(schedule_timer)); 
monthly_reporter_601_DRIVER; 
if HOST DURATION(schedule_timer) > monthly_reporter 601 STOP TIME2 then 
PUT _LINE("timing error from operator monthly_reporter_601"); 
SUBTRACT_HOST_TIME FROM_ALL_ TIMERS(HOST DURATION(schedule_timer) - 
monthly reporter_601_STOP_TIME2); 
end if; 
exit when done; 


delay(daily_reporter_410 START _TIME3 - HOST _DURATION(Schedule_timer)); 

daily reporter_410 DRIVER; 

if HOST _DURATION(Schedule_timer) > daily_reporter_410 STOP_TIME3 then 

PUT_LINE("timing error from operator daily_reporter_. 410"); 

SUBTRACT HOST TIME FROM ALL TIMERS(HOST DURATION(schedule_timer) - 

daily _reporter_410 STOP _TIME3); 

end if; 

exit when done; 


delay(daily reporter 410 START TIME4 - HOST _DURATION(schedule_timer)); 

daily reporter_410 DRIVER; 

if HOST DURATION(schedule_timer) > daily_reporter_410_ STOP _TIME4 then 
PUT_LINE("timing error from operator daily_reporter_410"); 
SUBTRACT _HOST_TIME FROM_ALL_ TIMERS(HOST_DURATION(schedule_timer) - 

daily _reporter_410 STOP_TIME4); 
end if, 
exit when done; 


delay(daily reporter 410 START _TIMES5 - HOST_DURATION(schedule_timer)); 
daily reporter_410 DRIVER; 
if HOST_DURATION(schedule_timer) > daily_reporter_410 STOP_TIMES then 
PUT _LINE("timing error from operator daily_reporter_410"); 
SUBTRACT HOST_TIME FROM ALL TIMERS(HOST_DURATION(schedule_timer) - 
daily _reporter_410 STOP TIMES); 
end 1f; 
exit when done; 


delay(daily reporter_410 START TIME6 - HOST DURATION(schedule_timer)); 

daily reporter 410 DRIVER; 

if HOST DURATION(schedule_timer) > daily_reporter_410 STOP_TIME6 then 

PUT_LINE("timing error from operator daily_reporter_ 410"); 

SUBTRACT HOST _TIME FROM ALL TIMERS(HOST_DURATION(schedule_timer) - 

daily reporter 410 STOP TIMES); 

end if; 

exit when done; 


delay(daily_reporter_410 START _TIME7 - HOST_DURATION(schedule_timer)); 
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daily_reporter_410 DRIVER; 
if HOST_DURATION(schedule_timer) > daily_reporter_ 410 STOP _TIME7 then 
PUT_LINE("timing error from operator daily_reporter_410"); 
SUBTRACT_HOST_TIME FROM_ALL_ TIMERS(HOST_ DURATION(schedule_timer) - 
daily reporter 410 STOP _TIME7); 
end if; 
exit when done; 


delay(daily_reporter_410 START_TIME8 - HOST DURATION(schedule_timer)); 

daily_reporter_ 410 DRIVER; 

if HOST_DURATION(schedule_timer) > daily_reporter_410 STOP_TIMES8 then 

PUT_LINE("timing error from operator daily_reporter_ 410"); 

SUBTRACT _HOST_TIME_FROM_ALL_ TIMERS(HOST_DURATION(schedule_timer) - 

daily reporter_410 STOP TIMES); 

end if; 

exit when done; 


delay(daily_reporter_410 START TIME9 - HOST DURATION(schedule_timer)); 

daily_reporter_410 DRIVER; 

if HOST -DURATION(schedule_ timer) > daily_reporter_410 STOP_TIMES9 then 
PUT_LINE("tming error from operator daily_reporter_4 10"): 
SUBTRACT_HOST_TIME_FROM_ALL_ TIMERS(HOST_DURATION(schedule_timer) - 

daily reporter 410 STOP_TIME9); 
end if; 
exit when done; 


delay(daily_reporter 410 START TIME10 - HOST DURATION(schedule_timer)); 

daily _reporter_410 DRIVER; 

if HOST _ DURATION(schedule timer) > daily_reporter_410 STOP_TIME10 then 
PUT_LINE("tuming error from operator datly_reporter_4 10"); 
SUBTRACT HOST_TIME FROM _ALL_TIMERS(HOST_DURATION(schedule_timer) - 

daily reporter_410_STOP_TIME10); 
end if; 
exit when done; 


delay(daily_reporter_410_ START_TIME11 - HOST_DURATION(schedule_timer)); 

daily _reporter_410 DRIVER; 

if HOST_DURATION(schedule_timer) > daily_reporter_410_ STOP_TIME11 then 
PUT_LINE("timing error from operator daily_reporter_410"); 
SUBTRACT _HOST_TIME FROM ALL TIMERS(HOST_DURATION(schedule_timer) - 

daily_reporter_410 STOP TIME11); 
end if; 
exit when done; 


delay(daily_reporter_ 410 START TIME12 - HOST DURATION(schedule_timer)); 

daily reporter_410_ DRIVER; 

if HOST_DURATION(schedule_timer) > daily_reporter_410_ STOP_TIME12 then 
PUT_LINE("timing error from operator daily_reporter_410"); 
SUBTRACT_HOST_TIME_FROM_ALL_TIMERS(HOST_DURATION(schedule_timer) - 

daily reporter 410 STOP _TIME12); 
end if, 
exit when done; 


delay(daily_reporter_410_START_TIME13 - HOST_DURATION(schedule_timer)); 


daily reporter 410 DRIVER; 
if HOST_DURATION(schedule_timer) > daily _reporter_410_ STOP_TIME13 then 
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PUT_LINE("timing error from operator daily_reporter_410"); 
SUBTRACT _HOST_TIME FROM_ALL TIMERS(HOST_DURATION(Schedule_timer) - 
daily_reporter_410 STOP _TIME13); 
end if; 
exit when done; 


delay(daily_reporter_410_START_TIME14 - HOST DURATION(schedule_timer)); 
daily_reporter_410_ DRIVER; 
if HOST_DURATION(schedule_timer) > daily_reporter_ 410 STOP_TIMEI14 then 
PUT_LINE("timing error from operator daily_reporter_410"); 
SUBTRACT_HOST_TIME FROM_ALL_TIMERS(HOST_DURATION(schedule_timer) - 
daily reporter_410_ STOP_TIME14); 
end if: 
exit when done; 


delay(daily_reporter_410_START_TIME15 - HOST _DURATION(schedule_timer)); 

daily _reporter_410_ DRIVER; 

if HOST_DURATION(schedule_timer) > daily_reporter_410 STOP_TIMEIS5 then 
PUT_LINE("timing error from operator daily_reporter_410"); 
SUBTRACT HOST_TIME FROM_ALL_TIMERS(HOST DURATION(schedule_timer) - 

daily reporter_410_STOP_TIME15); 
end if: 
exit when done; 


delay(daily_reporter_410_ START_TIME16 - HOST _ DURATION(schedule_timer)); 
daily_reporter_410 DRIVER; 
if HOST_DURATION(schedule_timer) > daily_reporter_410_STOP_TIME16 then 
PUT_LINE("timing error from operator daily_reporter_410"); 
SUBTRACT HOST_TIME FROM_ALL_ TIMERS(HOST_DURATION(schedule_timer) - 
daily reporter 410 STOP _TIMEI16); 
end if; 
exit when done; 


delay(daily_reporter_410 START_TIME17 - HOST_DURATION(schedule_timer)); 
daily_reporter_410_ DRIVER; 
if HOST _DURATION(schedule_timer) > daily_reporter_410 STOP_TIME17 then 
PUT_LINE("timing error from operator daily_reporter_410"); 
SUBTRACT HOST_TIME_FROM_ALL TIMERS(HOST_DURATION(schedule_timer) - 
daily reporter_410 STOP_TIME17); 
end if; 
exit when done; 


delay(daily_reporter_410 START _TIME18 - HOST _DURATION(schedule_timer)); 
daily_reporter_410_ DRIVER; 
if HOST_DURATION(schedule_timer) > daily_reporter_410 STOP _TIME18 then 
PUT_LINE("timing error from operator daily_reporter_410"); 
SUBTRACT _HOST_TIME FROM_ALL_ TIMERS(HOST_DURATION(schedule_timer) - 
daily _reporter_410 STOP _TIME18); 
end if; 
exit when done; 


delay(daily reporter_ 410 START _TIME19 - HOST_DURATION(schedule_timer)); 

daily_reporter_ 410 DRIVER; 

if HOST_DURATION(schedule_timer) > daily_reporter_410_STOP_TIME19 then 
PUT_LINE("timing error from operator daily_reporter_410"); 


oy 


SUBTRACT_HOST_TIME FROM_ALL_ TIMERS(HOST_DURATION(schedule_timer) - 
daily reporter_410 STOP _TIME19); 
end if; 
exit when done; 


delay(daily_reporter_410_ START_TIME20 - HOST _DURATION(schedule_timer)); 

daily_reporter_410 DRIVER; 

if HOST_DURATION(schedule_timer) > daily_reporter_410 STOP_TIME20 then 

PUT_LINE("timing error from operator daily_reporter_. 410"); 

SUBTRACT_HOST_TIME FROM_ALL_ TIMERS(HOST_DURATION(Sschedule_timer) - 
daily reporter_410_STOP_TIME20); 

end if; 

exit when done; 


delay(daily_reporter_410 START_TIME21 - HOST_DURATION(schedule_timer)); 

daily _reporter_410 DRIVER; 

if HOST_DURATION(schedule_timer) > daily_reporter_410_ STOP_TIME21 then 
PUT_LINE("timing error from operator daily_reporter_410"); 
SUBTRACT_HOST_TIME FROM_ALL TIMERS(HOST_DURATION(schedule_timer) - 

daily reporter 410 STOP _TIME21); 
end if; 
exit when done; 


delay(daily reporter_410 START TIME22 - HOST DURATION(schedule_timer)); 

daily_reporter_410 DRIVER; 

if HOST ' DURATION(schedule _timer) > daily_reporter_ 410 STOP_TIME22 then 
PUT_LINE("timing error from operator daily_reporter_410"); 
SUBTRACT_HOST_TIME FROM _ ALL TIMERS(HOST_DURATION(schedule_timer) - 

daily _reporter_410 STOP_TIME22); 
end if; 
exit when done; 


delay(daily reporter_410 START TIME23 - HOST DURATION(schedule_timer)); 

daily _reporter_410_ DRIVER; 

if HOST _DURATION(schedule_timer) > daily_reporter_410_STOP_TIME23 then 
PUT_LINE(C"timing error from operator daily_reporter_410"); 
SUBTRACT _HOST_TIME FROM ALL TIMERS(HOST_DURATION(schedule_timer) - 

daily _reporter_410 STOP_TIME23); 
end if; 
exit when done; 


delay(daily_reporter_410 START TIME24 - HOST _DURATION(schedule_timer)); 

daily _reporter_410 DRIVER; 

if HOST _DURATION(schedule_timer) > daily reporter 410 STOP_TIME724 then 
PUT_LINE("tuming error from operator daily_reporter_410"); 
SUBTRACT_HOST_TIME_ FROM_ALL_TIMERS(HOST_DURATION(schedule_timer) - 

daily_reporter_410 STOP_TIME24); 
end if; 
exit when done; 


delay(daily_reporter_410 START_TIME25 - HOST_DURATION(schedule_timer)); 
daily_reporter_ 410 DRIVER; 
if HOST_DURATION(schedule_timer) > daily_reporter_410_ STOP_TIME25 then 
PUT LINE("timing error from operator daily_reporter_410"), 
SUBTRACT_HOST_TIME_FROM_ALL_TIMERS(HOST_DURATION(schedule_timer) - 
daily reporter_410_STOP_TIME25); 
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end if: 
exit when done; 


delay(daily_reporter_410 START_TIME26 - HOST DURATION(schedule_timer)); 

daily reporter 410 DRIVER; 

if HOST_DURATION(schedule_timer) > daily_reporter_ 410 STOP_TIME26 then 
PUT_LINE("timing error from operator daily _reporter_410"); 
SUBTRACT_HOST_TIME FROM_ALL TIMERS(HOST DURATION(Schedule_timer) - 

daily_reporter_410_ STOP TIME26); 
end if; 
exit when done; 


delay(daily_reporter_410 START_TIME27 - HOST DURATION(schedule_timer)), 

daily reporter_410 DRIVER; 

if HOST _DURATION(schedule_timer) > daily_reporter_410 STOP _TIME27 then 
PUT_LINE("timing error from operator daily_reporter_410"), 
SUBTRACT HOST TIME FROM_ALL_ TIMERS(HOST_DURATION(schedule_timer) - 

daily reporter_410_ STOP_TIME27); 
end if; 
exit when done; 


delay(daily_reporter_410 START _TIME28 - HOST _DURATION(schedule_timer)); 
daily reporter_ 410 DRIVER; 
if HOST DURATION(schedule_timer) > daily_reporter_410_STOP_TIME28 then 
PUT_LINE("timing error from operator daily_reporter_410"); 
SUBTRACT _HOST_TIME FROM_ALL’TIMERS(HOST _ DURATION(schedule_ timer) - 
daily reporter 410 STOP_TIME28); 
end if; 
exit when done; 


delay(daily_reporter_410 START _TIME29 - HOST_DURATION(schedule_timer)); 

daily _reporter_410 DRIVER; 

if HOST _ DURATION(schedule_timer) > daily_reporter_410_STOP_TIME29 then 
PUT_LINE("timing error from operator daily_reporter_410"); 
SUBTRACT HOST_TIME FROM ALL TIMERS(HOST_DURATION(schedule_ ee) - 

daily reporter_ 410 STOP_TIME29); 
end if; 
exit when done; 


delay(daily_reporter_410 START _TIME30 - HOST _DURATION(schedule_timer)); 

daily _reporter_410 DRIVER; 

if HOST_DURATION(schedule_timer) > daily_reporter_410_STOP_TIME30 then 
PUT_LINE("timing error from operator daily_reporter_410"); 
SUBTRACT HOST_TIME FROM ALL TIMERS(HOST_DURATION(schedule_timer) - 

daily reporter 410 STOP _TIME30); 
end if; 
exit when done; 


delay(daily_reporter_410 START _TIME31 - HOST _DURATION(schedule_timer)); 
daily_reporter_410_ DRIVER; 
if HOST DURATION(schedule_timer) > daily_reporter_410_STOP_TIME31 then 
PUT_LINE("timing error from operator daily_reporter_410"); 
SUBTRACT HOST_TIME FROM_ALL_ TIMERS(HOST_DURATION(schedule_timer) - 
daily reporter 410 STOP _ TIME3 1): 
end if; 
exit when done; 


pi 


delay(PERIOD - HOST_DURATION(schedule_timer)); 
RESET(schedule_ timer); 


end loop; 
end STATIC SCHEDULE_TYPE; 


procedure START STATIC SCHEDULE is 
~ begin 
STATIC _SCHEDULE.START; 
end START STATIC_SCHEDULE; 


end fuel_subsystem_1_STATIC_SCHEDULERS; 


with FUEL_SUBSYSTEM_1_STATIC_SCHEDULERS; use 
FUEL_SUBSYSTEM_1_STATIC_SCHEDULERS; 
with FUEL _SUBSYSTEM_1 DYNAMIC SCHEDULERS; use 
FUEL _SUBSYSTEM_1_ DYNAMIC SCHEDULERS; 
with CAPS HARDWARE MODEL; use CAPS HARDWARE MODEL; 
procedure FUEL_SUBSYSTEM_1 is 
begin 
init_hardware_model; 
Start_static_schedule; 
start_dynamic_schedule; 
end FUEL_SUBSYSTEM_ 1}; 


Lae 


see 8 SC wee SSS SE SSS SS SS SSS S28 22S 6 SS SSS O28 SS SSS SF SSF SSS SSS SSF FSET SSS Seow aurea ae 


-- File: fuel_subsystem.gui_other_issue_12.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: this package simulates the interface that allows a petroleum 
-- specialist to manually input parameters required by Army 

- Regulation 710-2 for all fuel issues other than bulk 

-- issues. These other issues include fuel issues made directly 
-- into or specifically identifiable to a consuming end item. 

-- An example of this type of issue is to a vehicle or a M2 

-- burner unit. The petroleum specialist enters the type of 

-~ fuel issued, quantity in gallons, the receiving vehicle 

-- bumper number/equipment name, the receiving unit, and the 
-- name/rank of the receiver. 


Seem Ges Se SSO BS OSB set ee Bee SB SS SPS SS RPO POSS Se SSS SSS Se SS Se eS SS SSS Ss Se See SOS SS See SOS SS SS 


with text_string pkg; use text_string pkg; 
package gui_other_issue_12_pkg is 


procedure gui other_issue_12( 
eq iss unit: out text_string; 
eq iss name: out text_string; 
eq_ iss fuel_type: out integer; 
eq _ iss id: out text_string; 
eq iss qty: out integer ); 
end gui other_issue_12_pkg; 


package body gui_other_issue_12_pkg is 
procedure gui other_issue_12( 
eq_ iss unit: out text_string; 
eq_iss name: out text_string; 
eq iss fuel_type: out integer; 
eq _iss id: out text_string; 
eq _ iss qty: out integer ) is 
begin 
null; -- the interface would be implemented here 


end gui other issue_12; 


end gui_other_issue_12_pkg; 
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-- File: fuel_subsystem.gui_fuel_on_hand_124.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package simulates the interface that displays the 
-- current fuel totals in gallons that are stored and available 
-- for issue. This interface is available to both the using 

- petroleum specialist and accountable officer. 


package gui_fuel_on_hand_124 pkgis 
procedure gui _fuel_on_hand_124( 
diesel_gqty_available: in integer; 
mogas qty_available: in integer; 
jet_qty_available: in integer ); 
end gui fuel_on_hand_124_pkg; 
package body gui fuel on hand 124 pkgis 
procedure gui fuel_on_hand_ 124( 
diesel_qty_available: in integer; 
mogas_ qty_available: in integer; 
jet_qty_available: in integer ) is 
begin 
null; -- the interface would be implemented here 


end gui_fuel_on_hand_124; 


end gui _fuel_on_hand_124 pkg; 
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-- File: fuel_subsystem.gui_acc_officer_179.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package simulates the interface for the accountable 
-- officer to view the monthly fuel report. 


package gui _acc_officer_179_pkg is 
procedure gui_acc_officer_179( 
tolerance_jet: in boolean; 
tolerance_mg: in boolean; 
tolerance_df: in boolean ); 
end gui_acc_officer_179_pkg; 
package body gui _acc_officer_179_pkg is 
procedure gui_acc_officer_179( 
tolerance_jet: in boolean; 
tolerance_mg: in boolean; 
tolerance_df: in boolean ) is 
begin 
null; -- the interface would be implemented here 


end gui _acc_officer_179; 


end gui acc officer_179 pkg; 
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-- File: fuel_subsystem.bulk_rcpt_processor_198.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package serves as a preprocessor. Insures the bulk 
-- receipt input parameters of type of fuel and quantity 
arrive to be processed at the same time by using a by all 
-- triggering constraint. Arrival of both parameters cause 
-- an enable parameter to be generated indicating that the 
~ bulk receipt parameters are present and ready to be 

-- processed by the receipt processor. 


package bulk_rcpt_processor_198_pkg is 
procedure bulk_rcpt_processor_198( 
bulk rcpt _fuel_ type: in integer; 
bulk _rcpt_gty: in integer; 
oth_rcpt_enable: in out boolean; 
bulk _rcpt_enable: out boolean ); 
end bulk rcpt_processor_198 pkg; 
package body bulk_rcpt_processor_198_pkg is 
procedure bulk rcpt_processor_198( 
bulk_rcpt_fuel_type: in integer; 
bulk_rcpt_qty: in integer; 
oth _rcpt_enable: in out boolean; 
bulk_rept_enable: out boolean ) is 
begin 
-- type of fuel and quantity parameters are present for processing 
bulk_rcpt_enable := True; 
-- insure other enable is deactivated 
oth_rcpt_enable := False; 


end bulk_rcpt_processor_198; 


end bulk _rcpt_processor_198_pkg; 


226 


-- File: fuel subsystem.oth_rcpt_processor_207.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package is a preprocessor. Insures the other receipt 
-- input parameters of fuel type and quantity arrive to be 

-- processed at the same time using a by all triggering 

-- constraint. Arrival of both parameters cause an enable 

-- parameter to be generated indicating that the other receipt 
-- parameters are present and ready to be processed by the 
-- receipt processor. 


package oth _rcpt_processor_207_pkg is 
procedure oth_rcpt_processor_207( 
oth_rcpt_qty: in integer; 
oth_rcpt_fuel_type: in integer; 
bulk’ rcpt_enable: in out boolean; 
oth_rcpt_enable: out boolean ); 
end oth_rcpt_processor_207_pkg; 
package body oth_rcpt_processor_207_pkg is 
procedure oth_rcpt_processor_207( 
oth _rcpt_qty: in integer; 
oth_rcpt_fuel_type: in integer; 
buik_rcpt_enable: in out boolean; 
oth_rcpt_enable: out boolean ) is 
begin 
-- type of fuel and quantity parameters are present for processing 
oth_rcpt_enable := True; 
-- insure other enable is deactivated 
bulk_rcpt_enable := False; 


end oth_rcpt_processor_207; 


end oth_rcpt_processor_207_pkg; 
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-- File: fuel_subsystem.rcpt_processor_210.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package is the processor of all bulk and other fuel 
-- receipts. Based upon an enable signal and the type of fuel, 
-- the processor passes the received quantity of fuel to the 

-- appropriate fuel storage tank and totalizer. 
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package rcpt_processor_210_ pkg 1s 


procedure rcpt_processor_210( 
bulk_rcpt_enable: in boolean; 
oth_rcpt_enable: in boolean; 
bulk_rcpt_fuel_type: in integer; 
bulk_rcept_gqty: in integer; 
oth_rcpt_fuel_type: in integer; 
oth rcpt_qty: in integer; 
diesel_rcpt_qty: out integer; 
mogas rcpt_qty: out integer; 
jet_rcpt_qty: out integer; 
r_ df qty: out integer; 
r_ mg qty: out integer; 
r_jet_qty: out integer ); 

end rcpt_processor_210_pkg; 


package body rcpt_processor_210_pkg 1s 


diesel: Constant Integer := 1; 
mogas: Constant Integer := 2; 
jet: Constant Integer := 3; 


procedure rcpt_processor_210( 
bulk_rcpt_enable: in boolean; 
oth_rcpt_enable: in boolean; 
bulk_rcpt_fuel_type: in integer; 
bulk_rcpt_qty: in integer; 
oth_rcpt_fuel_type: in integer; 
oth_rcpt_qty: in integer; 
diesel_rcpt_qty: out integer; 
mogas rcpt_qty: out integer; 
jet_rcpt_qty: out integer; 
r_df_ qty: out integer; 
r mg qty: out integer; 
r_jet_qty: out integer ) is 


begin 
If bulk_rcpt_enable then 


If bulk rcpt fuel_type = diesel then 
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End if; 


r df qty :=bulk_rcpt_ qty; 
diesel _rcpt_qty := bulk_rept qty; 
End if; 


If bulk_rcpt_fuel_ type = mogas then 
r mg qty := bulk rcpt qty; 
mogas_rcpt_qty := bulk_rcpt_aqty; 
End if; 


If bulk_rcpt_fuel_type = jet then 
r_jet_qty := bulk_rcpt_qty; 
jet_rcpt_qty := bulk_rcpt_qty; 

End if; 


If oth_rcpt_enable then 


End if; 


If oth_rcpt_fuel_type = diesel then 
r_df_ qty := oth_rcpt_qty; 
diesel_rcpt_qty := oth_rcpt_qty; 
End if; 


If oth_rcpt_fuel_type = mogas then 
r mg qty :=oth_rcpt qty; 
mogas rcept_qty := oth rept qty; 
End 1f; 


If oth_rcpt_fuel_type = jet then 
r_jet_qty := oth rcpt qty; 
jet_rcpt_qty := oth_rcpt_aqty; 

End if; 


end rcpt_processor_210; 


end rept_processor_210_ pkg; 
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-- File: fuel_subsystem.df_rcpt_totalizer_274.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package is a counter of the daily quantity of diesel 
-- fuel received. This package also provides a hook for 

-- future system enhancement such as providing user views 

-- of the current daily total receipts of diesel fuel 

-- on demand. 


package df _rcpt_totalizer_274_pkg is 
procedure df _rcpt_totalizer_274( 
df _rcpt_total: in out integer; 
r_df qty: in integer ); 
end df_rcpt_totalizer_274_ pkg; 
package body df_rcpt_totalizer_274 pkg is 
procedure df_rcpt_totalizer_274( 
df rcpt_total: in out integer; 
r_df qty: in integer ) is 
begin 
-- adds the new diesel receipt quantity to the daily diesel receipt total 
df _rcpt_total := df_rcpt_total + r_df_qty; 


end df_rcpt_totalizer_274; 


end df _rcpt_totalizer_274_pkg; 
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-- File: fuel_subsystem.mg_rcpt_totalizer_277.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fue] Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package is a counter of the daily quantity of mogas 
-- received. Also provides a hook for future system 

-- enhancement such as user views of the current daily total 

-- receipts of mogas on demand. 


package mg_rcpt_totalizer_277_pkg is 
procedure mg rcpt _totalizer_277( 
mg _rcpt_total: in out integer; 
r_mg_ qty: in integer ); 
end mg_rcpt_totalizer_277_pkg; 
package body mg rcpt_totalizer_277_pkg is 
procedure mg _rcpt_totalizer_277( 
mg rcpt total: in out integer; 
r mg qty: in integer ) is 
begin 
-- adds the new mogas receipt quantity to the daily mogas receipt total 
mg rcpt_total := mg _rcpt_total+r_mg qty; 


end mg _rcpt_totalizer_277; 


end mg _ rcpt_totalizer_277_pkg; 
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-- File: fuel_subsystem.jet_rcpt_totalizer_280.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package is a counter of the daily quantity of jet 
-- fuel received. Also provides a hook for future system 

-- enhancement such as user views of the current daily 

-- total receipts of jet fuel on demand. 


package jet _rcpt_totalizer_ 280 pkg is 
procedure jet _rcpt_totalizer_280( 
jet_rcpt_total: in out integer; 
r_jet_qty: in integer ); 
end jet_rcpt_totalizer_280 pkg; 
package body jet_rcpt_totalizer 280 pkg is 
procedure jet _rcpt_totalizer_280( 
jet_rcpt_total: in out integer; 
r_jet_qty: in integer ) is 
begin 
-- adds the new jet receipt quantity to the daily jet receipt total 
jet_rcpt_total := jet_rcpt_total + r_jet_qty; 


end jet_rcpt_totalizer_280; 


end jet_rcpt_totalizer_280_pkg; 
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-- File: fuel_subsystem.gui_ bulk receipt 3.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package simulates the interface that allows a petroleum 
-- specialist to manulally input parameters extracted from DD 

-- Form 1348-1 during the receipt of bulk petroleum. The 

-- petroleum specialist enters the type of fuel received, 

-- quantity in gallons, and the document number as required 

-- by Army Regulation 710-2. 


with text_string pkg; use text_string_pkg; 
package gui_bulk_receipt_3_pkg is 
procedure gui_bulk_receipt_3¢ 
bulk rcpt fuel_type: out integer; 
bulk_rcpt_doc_number: out text_string; 
bulk rcpt_qty: out integer ); 
end gui bulk receipt 3 pkg; 
package body gui _bulk_receipt_3_pkg is 
procedure gui bulk receipt_3( 
bulk _rcpt_fuel_type: out integer; 
bulk_rcpt_doc_number: out text_string; 
bulk_rcpt_qty: out integer ) is 
begin 
null; -- the interface would be implemented here 


end gui_ bulk receipt_3; 


end gui_bulk_receipt_3_pkg; 
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-- File: fuel_subsystem.oth iss processor_307.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package is a preprocessor. Insures the equipment issue 
-- input parameters of fuel type and quantity arrive to be 

-- processed at the same time by using a by all triggering 

-- constraint. Arrival of both parameters cause an enable 

-- parameter to be generated indicating that the equipment 
-- issue parameters are present and ready to be processed by 
-- the issue processor. 


package oth iss_processor_307_pkg is 
procedure oth_iss_processor_307( 
eq iss_qty: in integer; 
eq iss fuel_type: in integer; 
bulk_iss_ enable: in out boolean; 
oth iss enable: out boolean ); 
end oth iss _processor_307_pkg; 
package body oth_iss_processor_307_pkg is 
procedure oth_iss_processor_307( 
eq iss qty: in integer; 
eq iss fuel_type: in integer; 
bulk_iss_ enable: in out boolean; 
oth iss enable: out boolean ) is 
begin 
-- type of fuel and quantity parameters are present for processing 
oth iss enable := True; 
-- insure other enable is deactivated 
bulk_iss_ enable := False; 


end oth iss_processor_ 307; 


end oth_iss_processor_307_pkg; 
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-- File: fuel_subsystem.bulk_iss processor _310.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package serves as a preprocessor. Insures the 
-- bulk issue parameters of fuel type and quantity arrive to 
-- be processed at the same time by using a by all triggering 
-- constraint. Arrival of both parameters cause an enable 
-- parameter to be generated indicating that the bulk issue 
-- parameters are present and ready to be processed by 

-- the issue processor. 


package bulk _iss_processor_310_pkg is 
procedure bulk _iss_processor_310( 
bulk_iss qty: in integer; 
bulk_iss_ fuel_type: in integer; 
oth_iss enable: in out boolean; 
bulk_iss_ enable: out boolean ); 
end bulk_iss_processor_310_pkg; 
package body bulk iss processor 310 pkg is 
procedure bulk_iss_processor_310( 
bulk_iss_qty: in integer; 
bulk_iss_ fuel_type: in integer; 
oth iss enable: in out boolean; 
bulk_iss_enable: out boolean ) is 


begin 
-- type of fuel and quantity parameters are present for processing 
bulk_iss enable := True; 
-- insure other enable is deactivated 
oth iss enable := False; 
end bulk _iss_processor_310; 


end bulk_iss_processor_310_pkg; 
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-- File: fuel_subsystem.iss_processor_323.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package is the processor of all bulk and equipment fuel 
-- issues. Based upon an enable signal and the type of fuel, 

= the processor passes the issued quantity of fuel to the 

-- appropriate fuel storage tank and totalizer. 


package iss_processor_323_pkg is 


procedure iss _processor_323( 
bulk_iss_qty: in integer; 
bulk_iss_fuel_type: in integer; 
eq_iss_qty: in integer; 
eq_iss fuel_type: in integer; 
oth_iss_ enable: in boolean; 
bulk_iss_ enable: in boolean; 
jet_iss_qty: out integer; 
mogas iss _qty: out integer; 
diesel iss qty: out integer; 
1_jet_qty: out integer; 
i mg qty: out integer; 
i df_qty: out integer ); 

end iss processor 323 pkg; 


package body iss_processor_323_pkg is 


diesel: Constant Integer := 1; 
mogas: Constant Integer := 2; 
jet: Constant Integer := 3; 


procedure iss_processor_323( 
bulk_iss_qty: in integer; 
bulk_iss_fuel_type: in integer; 
eq_iss_qty: in integer; 
eq _ iss fuel type: in integer; 
oth iss enable: in boolean; 
bulk_iss_ enable: in boolean; 
jet_iss_ qty: out integer; 
mogas iss qty: out integer; 
diesel iss qty: out integer; 
1 jet_qty: out integer; 
i mg _ qty: out integer; 
i_df_ qty: out integer ) is 


begin 
If bulk_iss_enable then 


If bulk_iss_fuel_ type = diesel then 
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i_df qty := bulk_iss qty; 
diesel_iss_qty := bulk iss qty; 
End if; 


If bulk_iss_fuel_ type = mogas then 
i_mg_ qty := bulk_iss qty; 
mogas_iss_qty := bulk_iss qty; 

Enda; 


If bulk_iss_fuel_type = jet then 
i_jet_qty := bulk_iss qty; 
jet_iss_qty := bulk_iss qty; 

End if; 


End if; 
If oth_iss_ enable then 


If eq_iss_fuel_type = diesel then 
i df qty := eq_iss_ qty; 


diesel_iss_qty :=eq_iss qty; 
End if; 


If eq_iss fuel_type = mogas then 
i_mg_qty := eq_iss_qty; 
mogas_iss qty :=eq_iss qty; 

End if; 

If eq_iss fuel_type = jet then 
1_jet_qty := eq_iss_ qty; 
jet_iss_qty :=eq_iss qty; 

End if; 

End if; 


end iss_processor_323; 


end iss processor 323 pkg; 
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-- File: fuel subsystem.jet_iss totalizer 346.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package is a counter of the daily quantity of jet fuel 
-- issued. Also provides a hook for future system enhancement 
- such as user views of the current daily total issues of 

- jet fuel on demand. 


package jet_iss_totalizer_346_ pkg is 
procedure jet_iss totalizer_346( 
jet_iss_ total: in out integer; 
1 _jet_qty: in integer ); 
end jet_iss totalizer_346 pkg; 
package body jet_iss_totalizer_346_pkg is 
procedure jet_iss_totalizer_346( 
jet_iss_ total: in out integer; 
i jet_qty: in integer ) is 
begin 
-- adds the new jet issue quantity to the daily jet issue total 
jet_iss total :=jet_iss_ total +1 jet_qty; 


end jet_iss totalizer_346; 


end jet_iss totalizer_346_pkg; 
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-- File: fuel _subsystem.mg_iss_totalizer_349.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package is a counter of the daily quantity of mogas 
- issued. Also provides a hook for future system enhancement 
-- such as user views of the current daily total issues of 

-- mogas on demnand. 


package mg iss totalizer_349 pkg is 
procedure mg _ iss totalizer_349( 
mg iss total: in out integer; 
i mg _ qty: in integer ); 
end mg _iss totalizer_349 pkg; 
package body mg _iss_totalizer_349_pkg is 
procedure mg iss totalizer_349( 
mg _iss_total: in out integer; 
i mg _ qty: in integer ) is 
begin 
-- adds the new mogas issue quantity to the daily mogas issue total 
mg iss total = mg_iss_total+i_mg qty; 


end mg iss totalizer_349; 


end mg iss _totalizer_349_pkg; 
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-- File: fuel_subsystem.df iss totalizer_352.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package is a counter of the daily quantity of diesel 
-- fuel issued. This package is also a hook for future system 

-- enhancement such as providing user views of the current 

o daily total issues of diesel fuel on demand. 
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package df iss totalizer_352 pkg is 
procedure df_iss_totalizer_352( 
df iss total: in out integer; 
i df qty: in integer ); 
end df _iss_totalizer_352_pkg; 
package body df_iss_totalizer_352 pkg is 
procedure df_iss_totalizer_352( 
df iss total: in out integer; 
i_df_ qty: in integer ) is 
begin 
-- adds the new diesel issue quantity to the daily diesel issue total 
df iss total :=df_iss total + 1_df_qty; 


end df iss_totalizer_352; 


end df_iss totalizer_352_pkg; 
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-- File: fuel_subsystem.daily reporter _410.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package provides a periodic operation that forwards 
-- the daily total receipts and issues per fuel type every 

-- 1 hour in this prototype. The normal period of this 

-- operator would be 24 hours in the developed system. 


package daily reporter_410 pkg is 


procedure daily _reporter_410( 
df rcpt_total: in out integer; 
mg_rept_total: in out integer; 
jet_rcpt_total: in out integer; 
df iss total: in out integer; 
mg _iss_ total: in out integer; 
jet_iss_ total: in out integer; 
daily df rcpt_total: out integer; 
daily mg rcpt_total: out integer; 
daily jet_rcpt_total: out integer; 
daily df_iss total: out integer; 
daily mg _ iss total: out integer; 
daily jet_iss total: out integer ); 

end daily _reporter_410_pkg; 


package body daily_reporter_410_ pkg is 


procedure daily_reporter_410( 
df_rcpt_total: in out integer; 
mg_rcpt_total: in out integer; 
jet_rcpt_total: in out integer; 
df iss total: in out integer; 
mg_iss_ total: in out integer; 
jet_iss_ total: in out integer; 
daily_df_rcpt_total: out integer; 
daily mg _rcpt_total: out integer; 
daily _jet_rcpt_total: out integer; 
daily df iss total: out integer; 
daily mg iss total: out integer; 
daily jet_iss total: out integer ) is 


begin 
-- forwards daily receipt totals 
daily df rcpt total :=df_rcpt_total; 
daily mg rcpt_total := mg_rcpt_total; 


daily_jet_rcpt_total :=jet_rcpt_total; 


-- forwards daily issue totals 
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daily_df_iss total := df_iss total; 
daily_mg_ iss total := mg_iss total; 
daily _jet_iss total := jet_iss total; 


-- reinitialize daily counters 
df rcpt total :=0; 

mg rcpt total := 0; 
Jetarept stotal = 10; 

df iss total := 0; 

mg iss total :=0; 

jet_iss total :=0; 


end daily _reporter_410; 


end daily reporter_410_ pkg; 
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-- File: fuel_subsystem.bulk_rcpt_db_ table 495.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package is designed to simulate the storage of the 
-- input parameters of a bulk fuel receipt in a relational 

-- database table. The table provides a historical audit trail 

-- of all bulk fuel receipts. Also, this package provides a 

-- hook for future system enhancement such as data mining 

-- and statistical analysis applications. 


with text_string pkg; use text_string pkg; 
package bulk rcpt_db_table_495_pkg is 
procedure bulk_rcpt_db_table_495( 
bulk rcpt fuel_type: in integer; 
bulk_rcpt_qty: in integer; 
bulk_rcpt_doc_number: in text_string ); 
end bulk_rcpt_db_table 495 pkg; 
package body bulk_rcpt_db_table 495 pkg is 


-- defines columns in relational datbase table 


bulk_r_db_fuel_type : Integer; 

bulk_r_db quantity : Integer; 

-bulk_r_db_doc_num : text_string; 

procedure bulk_rcpt_db_table_495( 
bulk_rcpt_fuel_type: in integer; 
bulk_rcpt_qty: in integer; 
bulk_rcpt_doc_number: in text_ string ) is 

begin 


-- simulates placing parameters in database table columns 


bulk_r_db_fuel_type := bulk_rcpt_fuel_type; 

bulk _r db quantity := bulk_rept_qty; 

bulk_r_db_ doc_num := bulk_rcpt_doc_number; 
end bulk_rcpt_db_table_ 495; 


end bulk_rcpt_db_ table 495_pkg; 
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-- File: fuel_subsystem.bulk_ iss db table 498.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package is designed to simulate the storage of 
-- the input parameters of a bulk fuel issue in a relational 

-- database table. The table provides a historical audit trail 
-- of all bulk fuel issues. The table also provides a hook for 
-- future system enhancements such as data mining and 

-- Statistical analysis applications. 


with text_string pkg; use text_string pkg; 
package bulk_iss db table 498 pkg is 


procedure bulk_iss_db_table_498( 
bulk iss fuel type: in integer; 
bulk_iss_ qty: in integer; 
bulk _iss_doc_num: in text_string; 
bulk _rcv_unit: in text_string; 
bulk_rcv_name: in text_string ); 
end bulk_iss_db_table_ 498 pkg; 


package body bulk iss db table 498 pkg is 
-- defines columns in relational database table 


bulk_i db_fuel_type : Integer; 
bulk_i db quantity : Integer; 
bulk i db doc_num :: text_string; 
bulk i db unit: text_string; 
bulk i db name _ : text_string; 


procedure bulk_iss_db_table_ 498( 
bulk iss fuel type: in integer; 
bulk_iss_qty: in integer; 
bulk_iss_doc_num: in text_string; 
bulk _rcv_unit: in text_string; 
bulk _rcv_name: In text_string ) is 


begin 
-- simulates placing parameters in database table columns 
bulk_i_db_fuel_type := bulk_iss_fuel_type; 
bulk_1_ db quantity := bulk_iss qty; 
bulk_i_db_doc_num := bulk_iss_doc_num; 
bulk_i_db_unit := bulk_rcv_unit; 
bulk_1_db_ name := bulk_rcv_name; 


end bulk_iss_db_table_498; 


end bulk_iss db table_498 pkg; 
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-- File: fuel_subsystem.other_rcpt_db_table 501.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package is designed to simulate the storage of the input 
-- parameters of all receipts other than bulk in a relational 

-- database table. The table provides a historical audit trail 

-- of all receipts other than bulk. The table also provides a 

-- hook for future system enhancements such as data mining 

-- and statistical analysis applications. 
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with text_string pkg; use text_string_pkg; 
package other rcpt_db_ table 501 pkgis 


procedure other_rcpt_db_table_501( 
oth _rcpt_fuel_type: in integer; 
oth_rcpt_qty: in integer; 
oth rept_source_id: in text_string; 
oth_rcpt_source_unit: in text_string ); 
end other _rcpt_db_table_501_pkg; 


package body other_rcpt_db_ table 501 pkg is 

-- defines columns in relational database table 

oth r_db_fuel_type : Integer; 

oth_r_db quantity  : Integer; 

oth_r_db_ source_id : text_string; 

oth _r_db_source_unit : text_string; 

procedure other_rcpt_db_table_501( 
oth rcpt_fuel_type: in integer; 
oth_rcpt_qty: in integer; 
oth_rcpt_source_id: in text_string; 
oth_rcpt_source_unit: in text_string ) is 

begin 


-- simulates placing parameters in database table columns 


oth_r_db_ fuel_type := oth_rcpt_fuel_type; 

oth_r_db quantity := oth_rcpt_qty; 

oth_r_db_source_id := oth_rept_source_id; 

oth _r_db_source_unit := oth_rcpt_source_unit; 
end other_rcpt_db_table_501; 


end other _rcpt_db_table_501_pkg; 
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-- File: fuel_subsystem.other_iss_db_table_504.a 
-- Author: Lawrence A. Kominiak, Major, USA 
-- Project: Fuel Automated Subsystem of ICS3 
-- Date: February 1998 


-- Description: This package is designed to simulate the storage of the input 


-- parameters for all fuel issues to equipment in a relational 

-- database table. The table provides a historical audit trail 

-- of all equipment issues. The table also provides a hook for 
-- future system enhancement such as data mining and 

-- statistical analysis applications. 


with text_ string pkg; use text_string_pkg; 
package other_iss_db_table_504_pkg is 


procedure other_iss_db_table_504( 
eq iss fuel_type: in integer; 
eq _iss_qty: in integer; 
eq_iss_id: in text_string; 
eq iss unit: in text_string; 
eq iss name: in text_string ); 
end other_iss_db_table 504 pkg; 


package body other_iss_db_table_504 pkg is 
-- defines columns in relational database table 


oth_i db_fuel_type : Integer; 
oth _i db quantity : Integer; 
oth i db id : text_string; 
oth i db_unit  : text_string; 
oth i db name _ : text_string; 


procedure other_iss_db_table_504( 
eq iss fuel_type: in integer; 
eq_iss_ qty: in integer; 
eq_iss_id: in text_string; 
eq_iss_unit: in text_string; 
eq iSS name: in text_string ) is 


begin 
-- simulates placing parameters in database table columns 
oth_i db _fuel_type := eq_iss_fuel_type; 
oth i db quantity := eq_iss_qty; 
oth i_db id := eq_iss_id; 
oth 1 db_ unit := eq_iss_unit; 
oth i db name := eq_iss_name; 


end other_iss_db_table_504; 


end other iss _db_table_504 pkg; 
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-- File: fuel_subsystem.mo_df_rcpt_totalizer_583.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package is a counter of the quantity of diesel fuel 
-- received over the course of the month. Also provides a 

-- hook for future system enhancement such as user views of 
= the current total receipts of diesel fuel for the month. 


package mo_df rcpt_totalizer_583 pkg is 
procedure mo_df_rcpt_totalizer_583( 
daily df rcpt_total: in integer; 
mo rcpt _df_total: in out integer ); 
end mo _ df rcpt _totalizer 583 pkg; 
package body mo_df_rcpt_totalizer_583_pkg is 
procedure mo_df_rcpt_totalizer_583( 
daily df rcpt_total: in integer; 
mo rcpt _df_ total: in out integer ) is 


begin 


-- adds the new daily diesel receipt quantity to the monthly diesel 
-- receipt total 


mo rcpt _df total := mo_rcpt_df_total + daily_df rcpt_total; 
end mo_df rcpt_totalizer_583; 


end mo_df_rcpt_totalizer_583_pkg; 
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-- File: fuel_subsystem.mo_mg rcpt_totalizer_586.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package is a counter of the quantity of mogas received 
= over the course of the month. Also provides a hook for 

-- future system enhancement such as user views of the current 

-- total receipts of mogas for the month. 


package mo_mg rcpt_totalizer_586_pkg is 
procedure mo_mg rcpt_totalizer_586( 
daily mg _rcpt_total: in integer; 
mo _rcpt_mg total: in out integer ); 
end mo_mg rcpt_totalizer_586_pkg; 
package body mo_mg rcpt _totalizer_586 pkg is 
procedure mo_mg rcpt_totalizer_586( 
daily mg rcpt_total: in integer; 


mo _rcpt_mg total: in out integer ) is 


begin 


-- adds the new daily mogas receipt quantity to the monthly mogas 
-- receipt total 


mo rcpt mg total := mo_rcpt_mg total + daily mg rcpt_total; 
end mo_mg rept_totalizer_586; 


end mo_mg rcpt_totalizer_586_pkg; 
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-- File: fuel_subsystem.mo_jet_rcpt_totalizer_589.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package is a counter of jet fuel received over the 

a course of the month. Also provides a hook for future system 
-- enhancement such as user views of the current total receipts 
-- of jet fuel for the month. 


package mo_jet_rcpt_totalizer_589 pkg is 
procedure mo_jet_rcpt_totalizer_589( 
daily _jet_rcpt_total: in integer; 
mo_rcpt_jet_total: in out integer ); 
end mo _jet_rcpt_totalizer_589 pkg; 
package body mo _jet_rcpt_totalizer_589 pkg is 
procedure mo _jet_rcpt_totalizer_589( 
daily jet_rcpt_total: in integer; 


mo_rept_jet_total: in out integer ) is 


begin 


-- adds the new daily jet receipt quantity to the monthly jet 
-- receipt total 


mo_rcpt_jet_total :=mo_rcpt_jet_total + daily jet_rcpt_total; 
end mo _jet_rcpt_totalizer_589; 


end mo jet_rcpt_totalizer_589 pkg; 
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-- File: fuel_subsystem.mo_df_ iss totalizer_592.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package is a counter of the quantity of diesel fuel 
-- issued over the course of the month. Also provides a hook 
-- for future system enhancement such as user views of the 

-- current total issues of diesel fuel for the month. 
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package mo_df_ iss totalizer_592 pkg is 
procedure mo_ df_iss_ totalizer_592( 
mo _ iss df total: in out integer; 
daily df iss total: in integer ); 
end mo df iss totalizer_592_pkg; 
package body mo_df_iss_ totalizer_592 pkg is 
procedure mo_df_iss_totalizer_592( 
mo _ iss df total: in out integer; 
daily df iss total: in integer ) is 


begin 


-- adds the new daily diesel issue quantity to the monthly diesel 
-- issue total 


mo_iss_df total := mo_iss_df_total + daily_df_iss total; 
end mo_df iss totalizer 592; 


end mo_df_ iss totalizer_592_pkg; 
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-- File: fuel_subsystem.mo_mg iss_totalizer 595.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package is a counter of the quantity of mogas issued 
-- over the course of the month. Also provides a hook for 

-- future system enhancement such as user views of the current 
-- total issues of mogas for the month. 


package mo_mg iss _totalizer_595_pkg is 
procedure mo_mg iss_totalizer_595( 
mo _iss_ mg total: in out integer; 
daily mg _ iss total: in integer ); 
end mo_mg iss _totalizer_ 595 _pkg; 
package body mo_mg iss _totalizer_595_pkg is 
procedure mo_mg iss totalizer_595( 
mo_iss mg total: in out integer; 
daily mg iss total: in integer ) is 


begin 


-- adds the new daily mogas issue quantity to the monthly mogas 
-- issue total 


mo _ iss mg total := mo_iss_mg total + daily _mg iss _ total; 
end mo_ mg iss totalizer_595; 


end mo_mg iss _totalizer_595_pkg; 
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-- File: fuel _subsystem.mo_jet_iss_totalizer_598.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package is a counter of the quantity of jet fuel issued 
-- over the course of the month. Also provides a hook for 

-- future system enhancement such as user views of the current 
-- total issues of jet fuel for the month. 


package mo_jet_iss_totalizer_598_pkg is 
procedure mo_jet_iss totalizer_598( 
mo_iss_jet_total: in out integer; 
daily jet_iss_total: in integer ); 
end mo_jet_iss totalizer_598_pkg; 
package body mo_jet_iss_totalizer_598 pkg is 
procedure mo_jet_iss_totalizer_598( 
mo_iss_jet_total: in out integer; 


daily jet_iss total: in integer ) is 


begin 


-- adds the new daily jet issue quantity to the monthly jet 
-- issue total 


mo _ iss jet total = mo_iss jet_total + daily jet_iss_total; 
end mo_jet_iss totalizer_598; 


end mo_jet_iss_ totalizer_598_pkg; 
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-- File: fuel_subsystem.gui_other_receipt_6.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package simulates the interface that captures all other 
-- possible petroleum receipt scenarios i.e. vehicle/aircraft 

-- defueling etc. The interface allows a petroleum specialist 

-- to manually enter the type of fuel received, quantity in 

== gallons, an identification number from the source, and 

-- the source unit as required by Army Regulation 710-2. 


with text_string_pkg; use text_string_pkg; 
package gui_other_receipt_6_pkg is 
procedure gui other_receipt_6( 
oth rcpt qty: out integer; 
oth rcpt_source_unit: out text_string; 
oth _rcpt_fuel_type: out integer; 
oth rcpt_source_id: out text_string ); 
end gui_other_receipt_6_pkg; 
package body gui_other_receipt_6_pkg is 
procedure gui_other_receipt_6( 
oth _rcpt_qty: out integer; 
oth _rcpt_source_unit: out text_string; 
oth rcpt_fuel_type: out integer; 
oth_rcpt_source_id: out text_string ) is 
begin 
null; -- the interface would be implemented here 


end gui_other_receipt_6; 


end gui_other_receipt_6_pkg; 
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-- File: fuel_subsystem.monthly reporter _601.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package provides a periodic operation that forwards the 
-- monthly total receipts and issues per fuel type every 

-- 30 hours in this prototype. The normal period of this 

-- operator would be 720 hours, approximately one month, in 

-- the developed system. 


package monthly_reporter_601_pkg is 


procedure monthly_reporter_601( 
mo_iss_ jet_total: in out integer; 
mo_iss mg total: in out integer; 
mo_iss_df_total: in out integer; 
mo _rcpt_jet_total: in out integer; 
mo rcpt_mg total: in out integer; 
mo rcpt_df_total: in out integer; 
month df iss total: out integer; 
month_df rcpt_total: out integer; 
month mg iss total: out integer; 
month mg _rcpt_total: out integer; 
month_jet_rcpt_total: out integer; 
month_jet_iss_ total: out integer ); 

end monthly_reporter_601_pkg; 


package body monthly_reporter_601_pkg is 


procedure monthly_reporter_601( 
mo _iss_jet_total: in out integer; 
mo iss mg total: in out integer; 
mo _ iss df total: in out integer; 
mo rcpt_jet_total: in out integer; 
mo _rcpt_mg total: in out integer; 
mo rcpt_df_total: in out integer; 
month_df_iss_ total: out integer; 
month df_rcpt_total: out integer; 
month mg iss total: out integer; 
month mg rcpt_total: out integer; 
month _jet_rcpt_total: out integer; 
month _jet_iss_ total: out integer ) is 


begin 
-- forwards monthly receipt totals 
month df rcpt_total := mo_rcpt_df_total; 


month mg rcpt_total := mo_rcpt_mg_total; 
month jet rcpt total := mo_rcpt_jet_total; 
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-- forwards monthly issue totals 


month df_iss_ total :=mo_iss df total; 
month_mg_iss_ total := mo_iss_mg _ total; 
month_jet_iss_ total := mo_iss_jet_total; 


-- reinitialize monthly counters 
mo _rcpt_df_ total := 0; 

mo_ rcpt _mg total :=0; 
mo_rcpt_jet_total := 0; 
mo_iss df total := 0; 
mo_iss_mg_ total := 0; 
mo_iss_jet_total := 0; 


end monthly _reporter_601; 


end monthly reporter 601 pkg; 


ZS) 


wee eee ee eee ee eee oe Ke oe Kee RM ee Pe OO ee ew Oe ee eee oe ee ee SB eS See See meses eee eeSoee ease eeeeeeee 


-- File: fuel_subsystem.daily_rcpt_db_ table 740.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package is designed to simulate the storage of the 
-- daily total receipts per fuel type in a relational 

-- database. The table provides a historical audit trail. 

-- The table also provides a hook for future system 

-- enhancements such as data mining and statistical analysis. 
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package daily rcpt_db_table_740_pkg is 
procedure daily rcpt_db_ table _740( 
daily df rcpt_total: in integer; 
daily mg_rcpt_total: in integer; 
daily jet_rcpt_total: in integer ); 
end daily rcpt_db_table_ 740 pkg; 
package body daily_rcpt_db_ table 740 pkg is 


-- defines columns in relational database table 


daily r_ db diesel : Integer; 

daily r db_mogas : Integer; 

daily r db jet: Integer; 

procedure daily rcpt_db_table_740( 
daily df rcpt_total: in integer; 
daily mg _rcpt_total: in integer; 
daily jet_rcpt_total: in integer ) is 

begin 
-- simulates placing parameters in database table columns 
daily r_ db diesel := daily _df_rcpt_total; 
daily r db mogas := daily_mg rcpt_total; 
daily r db jet := daily _jet_rcpt_total; 

end daily rcpt_db_ table 740; 


end daily rcpt_db_table_740_pkg; 
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-- File: fuel_subsystem.daily iss db table _743.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package is designed to simulate the storage of the 
-- total daily issues per fuel type in a relational database. 

-- The table provides a historical audit trail. The table 

-- also provides a hook for future system enhancements such 
-- as data mining and statistical analysis applications. 


package daily iss _db_table_743 pkg is 
procedure daily iss_db table _743( 
daily df iss total: in integer; 
daily mg iss total: in integer; 
daily jet_iss total: in integer ); 
end daily_iss db table _743_pkg; 
package body daily_iss_db_table_743_pkg is 


-- defines columns in relational database table - 


daily i db_ diesel : Integer; 
daily 1 db_mogas : Integer; 
daily 1 db jet: Integer; 
procedure daily iss_db_table_743( 
daily df iss total: in integer; 
daily mg _ iss total: in integer; 
daily jet_iss total: in integer ) is 
begin 


-- simulates placing parameters in database table columns 


daily i_db_diesel := daily_df_iss_ total; 
daily i db_mogas := daily_mg -iss total; 
daily i _db_ jet :=daily_jet_iss_ total; 

end daily iss db_table_743; 


end daily_iss db _table_743_ pkg; 
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-- File: fuel_subsystem.diesel_ addition 836.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package simulates the receipt/addition of a 
-- quantity of diesel fuel to the storage tank. 


package diesel_addition_836_pkg is 
procedure diesel_addition_836( 
diesel_ volume: in out integer; 
diesel_rcpt_qty: in integer; 
df_qty_on_hand: out integer ); 
end diesel _addition_836_pkg; 
package body diesel_addition_836 pkg is 
procedure diesel_addition_836( 
diesel volume: in out integer; 
diesel_rcpt_qty: in integer; 
df _qty_on_hand: out integer ) 1s 
begin 


-- adds the received quantity of diesel fuel to the current volume 
-- of diesel fuel to produce the new quantity of diesel fuel on hand 


df_qty_on_hand := diesel_volume + diesel_rcpt_qty; 

-- updates the current volume of diesel fuel in storage 

diesel_volume := diese]l_volume + diesel_rcpt_qty; 
end diesel_addition_836; 


end diesel_addition_836_pkg; 
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-- File: fuel_subsystem.diesel_subtraction_839.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package simulates the issue/subtraction of a quantity 
-- of diesel fuel from the storage tank. 


package diesel_subtraction_839_pkg is 
procedure diesel_subtraction_839( 
diesel_ volume: in out integer; 
diesel_iss_ qty: in integer; 
df_qty_on_hand: out integer ); 
end diesel_subtraction_839 pkg; 
package body diesel_subtraction_839_pkg is 
procedure diesel _subtraction_839( 
diesel_ volume: in out integer; 
diesel_iss_qty: in integer; 
df _qty_on_hand: out integer ) is 
begin 


-- subtracts the issued quantity of diesel fuel from the current volume 
-- of diesel fuel to produce the new quantity of diesel fuel on hand 


df _qty_on_hand := diesel_volume - diesel_iss_ qty; 

-- updates the current volume of diesel fuel in storage 

diesel_volume := diesel_volume - diesel_iss qty; 
end diesel _subtraction_839; 


end diesel_subtraction_839 pkg; 
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-- File: fuel_subsystem.diesel gage 854.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package simulates gaging the diesel storage tank 
-- to determine the quantity of fuel on hand. Note: this 

-- package can be further enhanced to reflect the effects of 
-- volume changes due to environmental factors such as 

-- temperature and evaporation. 


package diesel_gage 854 pkg is 
procedure diesel_gage 854( 
df_qty_on_hand: in integer; 
diesel_qty_available: out integer ); 
end diesel gage 854 pkg; 
package body diesel_ gage 854 pkg is 
procedure diesel _gage 854( 


df_qty_on_hand: in integer; 
diesel qty available: out integer ) 1s 


begin 
-- simulates gaging the diesel tank 
-- if environmental factors were to be included, the df_qty_on_hand 
-- would be increased or decreased accordingly and hence reflected 
-- in the quantity available 
diesel_qty_available := df_qty_on_hand; 

end diesel gage 854; 


end diesel gage 854 pkg; 
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-- File: fuel_subsystem.mogas addition 888.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package simulates the receipt/addition of a quantity of 
-- mogas to the storage tank. 
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package mogas_ addition_888_pkg is 
procedure mogas_addition_888( 
mogas rcpt_qfty: in integer; 
mogas volume: in out integer; 
mg_ qty _on_hand: out integer ); 
end mogas addition_888 pkg; 


package body mogas_addition_888_pkg is 


procedure mogas addition _888( 
mogas rcpt_qty: in integer; 
mogas volume: in out integer; 
mg _qty_on_hand: out integer ) is 

begin 


-- adds the received quantity of mogas to the current volume of 
-- mogas to produce the new quantity of mogas on hand 


mg_gty_on_hand := mogas_volume + mogas rcpt_qty; 

-- updates the current volume of mogas in storage 

mogas volume := mogas_ volume + mogas rept_qty; 
end mogas_addition_888; 


end mogas_addition_888_pkg; 
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-- File: fuel_subsystem.mogas subtraction 891.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package simulates the issue/subtraction of a quantity of 
-- mogas from the storage tank. 


package mogas_subtraction_891_pkg is 
procedure mogas_subtraction_891( 
mogas iss qty: in integer; 
mogas volume: in out integer; 
mg_qty_on_hand: out integer ); 
end mogas subtraction 891 pkg; 
package body mogas_subtraction_891 pkg is 
procedure mogas_subtraction_891( 
mogas_iss_qty: in integer; 
mogas volume: in out integer; 
mg qty_on_hand: out integer ) is 
begin 


-- subtracts the issued quantity of mogas from the current volume 
-- of mogas to produce the new quantity of mogas on hand 


mg_qty_on_hand := mogas_ volume - mogas iss qty; 

-- updates the current volume of mogas in storage 

mogas volume := mogas_ volume - mogas iss qty; 
end mogas_subtraction_891; 


end mogas_subtraction_891_ pkg; 
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-- File: fuel_subsystem.mogas gage 894.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package simulates the gaging of the mogas storage tank 
- to determine the quantity of fuel on hand. Note: this package 

-- can be further enhanced to reflect the effects of volume 

- changes due to environmental factors such as temperature 

-- and evaporation. 
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package mogas_ gage 894 pkg is 
procedure mogas gage 894( 
mg _qty_on_hand: in integer; 
mogas_ qty available: out integer ); 
end mogas_ gage 894 pkg; 
package body mogas_ gage 894 pkg is 
procedure mogas gage 894( 


mg _qty_on_hand: in integer; 
mogas _ qty_available: out integer ) is 


begin 
-- simulates gaging the mogas tank 
-- if environmental factors were included, the mg _qty_on_hand would 
-- be increased or decreased accordingly and hence reflected in the 
-- quantity available 
mogas_qty_available := mg_qty_on_hand; 
end mogas gage 894; 


end mogas gage 894 pkg; 


263 


ese ee e@ eee eee OO Se SSS Se Se SCF Cf SOB eet OSS SS SS SSF SSF SF SSF Fe SSS Ce Cote Geese eee Sse eeeseeae = 


-- File: fuel_subsystem.gui_bulk_issue_9.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package simulates the interface that allows a petroleum 
-- specialist to manually input parameters extracted from 

-- DA Form 2765-1 during issue of bulk petroleum. The petroleum 
-- specialist enters the type of fuel issued, quantity in 

-- gallons, document number of the issue, the receiving unit, 

-- and the name/rank of the receiver as required by 

-- Army Regulation 710-2. 
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with text_string_pkg; use text_string pkg; 
package gui_bulk_issue_9_pkg is 


procedure gui_bulk_issue_9( 
bulk_rcv_unit: out text_string; 
bulk_iss_doc_num: out text_string; 
bulk_rcv_name: out text_string; 
bulk_iss_qty: out integer; 
bulk iss fuel_type: out integer ); 
end gui_bulk_issue_9 pkg; 


package body gui_bulk_issue_9_pkg is 

procedure gui_bulk_issue_9( 
bulk _rcv_unit: out text_string; 
bulk_iss_doc_num: out text_string; 
bulk_rcv_name: out text_string; 
bulk_iss qty: out integer; 
bulk_iss_fuel_type: out integer ) is 

begin 
null; -- the interface would be implemented here 


end gui bulk _issue_9; 


end gui_bulk_issue_9_ pkg; 
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-- File: fuel_subsystem.jet_addition_911.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package simulates the receipt/addition of a quantity of 
-- jet fuel to the storage tank. 


package jet_addition_911_pkgis 
procedure jet_addition_911( 
jet_volume: in out integer; 
jet_rcpt_qty: in integer; 
jet_qty_on_hand: out integer ); 
end jet_addition_911_ pkg; 
package body jet_addition_911_pkg is 
procedure jet_addition_911( 
jet_volume: in out integer; 
jet_rcept_qty: in integer; 
jet_qty_on_hand: out integer ) is 
begin 


-- adds the received quantity of jet fuel to the current volume 
-- of jet fuel to produce the new quantity of jet fuel on hand 


jet_qty_on_hand := jet_volume + Jjet_rcpt_qty; 
-- updates the current volume of jet fuel in storage 
jet_volume := jet_volume + jet_rcpt_qty; 

end jet_addition_911; 


end jet_addition_911_ pkg; 
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-- File: fuel_subsystem.jet_subtraction_914.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package simulates the issue/subtraction of a quantity of 
-- jet fuel from the storage tank. 


package jet_subtraction_914 pkg is 
procedure jet_subtraction_914( 
jet_volume: in out integer; 
jet_iss_qty: in integer; 
jet_qty_on_hand: out integer ); 
end jet_subtraction_914 pkg; 
package body jet_subtraction_914_pkg is 
procedure jet_subtraction_914( 
jet_volume: in out integer; 
jet_iss qty: in integer; 
jet_qty_on_hand: out integer ) is 


begin 


-- subtracts the issued quantity of jet fuel from the current volume 
-- of jet fuel to produce the new quantity of jet fuel on hand 


jet_qty_on_hand := jet_volume - jet_iss_ qty; 
-- updates the current volume of jet fuel in storage 
jet_volume := jet_volume - jet_iss_ qty; 

end jet_subtraction_914; 


end jet_subtraction_914 pkg; 
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-- File: fuel_subsystem.jet_gage 917.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package simulates gaging the jet fuel storage tank to 
-- determine the quantity of fuel on hand. Note: this package can 
-- be further enhanced to reflect the effects of volume changes 
-- due to environmental factors such as temperature and 

-- evaporation. 


package jet gage 917 _pkgis 
procedure jet_gage 917( 
jet_qty_on_hand: in integer; 
jet_qty_available: out integer ); 

end jet_gage 917_pkg; 

package body jet_gage 917_pkg is 
procedure jet_gage 917( 


jet_qty_on_hand: in integer; 
jet_qty_available: out integer ) is 


begin 
-- simulates gaging the jet fuel tank 
-- if environmental factors were to be included, the jet_qty_on_hand 
-- would be increased or decreased accordingly and hence reflected in 
-- the quantity available 
jet_qty_available := jet_qty_on_hand; 

end jet_gage 917; 


end jet_gage 917_pkg; 
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-- File: fuel_subsystem.diesel_iss acct proc 934.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package sets the total monthly diesel issues for 
- processing. 


package diesel_iss acct_proc_934 pkg is 
procedure diesel_iss_acct_proc_934( 
month df iss total: in integer; 
total mo_df_iss: out integer ); 
end diesel_iss_ acct_proc_934 pkg; 
package body diesel_iss_acct_proc_934 pkg is 
procedure diesel iss_acct_proc_934( 
month_df_iss_total: in integer; 
total mo_df_iss: out integer ) is 
begin 
total mo_df_iss := month_df_iss_total; 


end diesel iss acct proc 934; 


end diesel_iss acct _proc_934 pkg; 
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-- File: fuel_subsystem.diesel_rcpt_acct_proc_937.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package sets the total monthly diesel receipts for 
processing. 


package diesel_rcpt_acct_proc_937_pkg is 
procedure diesel_rcpt_acct_proc_937( 
month_df_rcpt_total: in integer; 
total mo_df_rcpt: out integer ); 
end diesel_rcpt_acct_proc_937_pkg; 
package body diesel_rcpt_acct_proc_937_pkg is 
procedure diesel_rcpt_acct_proc_937( 
month df rcpt_total: in integer; 
total mo_df_rcpt: out integer ) is 
begin 
total mo_df_rcpt := month_df_rcpt_total; 


end diesel_rcpt_acct_proc_937; 


end diesel _rcpt_acct_proc_937_pkg; 
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-- File: fuel_subsystem.mogas iss acct proc 940.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package sets the total monthly mogas issues for 
-- processing. 


package mogas _iss_acct_proc_940_pkg is 
procedure mogas_1ss_acct_proc_940( 
month mg _ iss_total: in integer; 
total mo_mg iss: out integer ); 
end mogas _iss_acct_proc_940_pkg; 
package body mogas _iss_acct_proc_ 940 pkg is 
procedure mogas iss _acct_proc_940( 
month mg _ iss_total: in integer; 
total mo_mg iss: out integer ) 1s 
begin 
total mo_mg_iss := month mg iss total; 


end mogas _iss_acct_proc_940; 


end mogas iss_acct_proc_940_pkg; 
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-- File: fuel_subsystem.mogas rcpt_acct_proc_ 943.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package sets the total monthly mogas receipts for 
-- processing. 


package mogas rcpt_acct_proc_943 pkg is 
procedure mogas_rcpt_acct_proc_ 943( 
month mg rcpt_total: in integer; 
total mo_mg rept: out integer ); 
end mogas rcpt_acct_proc 943 pkg; 
package body mogas _rcpt_acct_proc_ 943 pkg is 
procedure mogas rcpt_acct_proc 943( 
month_mg rcpt_total: in integer; 
total mo_mg rept: out integer ) is 
begin 
total mo_mg rcpt := month_mg rcpt_total; 


end mogas rcept_acct_ proc 943; 


end mogas_rcpt_acct_proc_943_pkg; 
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-- File: fuel_subsystem.jet_iss acct proc 946.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package sets the total monthly jet issues for 
-- processing. 


package jet_iss_acct_proc_946_ pkg is 
procedure jet_iss_acct_proc_946( 
month_jet_iss_total: in integer; 
total_mo_jet_iss: out integer ); 
end jet_iss acct_proc_ 946 pkg; 
package body jet_iss_acct_proc_946 pkg is 
procedure jet_iss_acct_proc_946( 
month _jet_iss_total: in integer; 
total mo_jet_iss: out integer ) is 
begin 
total mo_jet_iss := month_jet_iss_total; 


end jet_iss_acct_proc_ 946; 


end jet_iss acct_proc_946_ pkg; 
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-- File: fuel_subsystem.jet_rcpt_acct_proc_ 949.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package sets the total monthly jet receipts for 
-- processing. 


package jet_rcpt_acct_proc_949 pkg is 
procedure jet_rcpt_acct_proc 949( 
month_jet_rcpt_total: in integer; 
total mo_jet_rcpt: out integer ); 
end jet_rcpt_acct_proc 949 pkg; 
package body jet_rcpt_acct_proc_949 pkg is 
procedure jet_rcpt_acct_proc_ 949( 
month jet rcpt total: in integer; 
total mo_jet_rcpt: out integer ) is 
begin 
total mo _jet_rcpt := month_jet_rcpt_total; 


end jet_rcpt_acct_proc_949; 


end jet_rcpt_acct_proc_949 pkg; 
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-- File: fuel_subsystem.df acct_calc_952.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package determines whether diesel fuel 
-- accountability is within tolerance. 


package df _acct_calc_952_pkg is 


procedure df_acct_calc_952( 
total mo_df_iss: in integer; 
total mo_df_rcpt: in integer; 
opening inv_diesel: in out integer; 
diesel_qty_available: in integer; 
tolerance_df: out boolean ); 
end df_acct_calc_952_pkg; 


package body df_acct_calc_952_pkg is 


df closing book_bal : Integer; 
df mo_gain_loss : Integer; 
df allow_gain_loss : Integer; 


procedure df_acct_calc_952( 
total_mo_df_iss: in integer; 
total mo_df_rcpt: in integer; 
opening inv_diesel: in out integer; 
diesel _qty_available: in integer; 
tolerance_df: out boolean ) is 


begin 

-- determine if monthly diesel accounting is within tolerance 
df_closing_book_bal := opening inv_diesel + total_mo_df_ rcpt - total_mo_df_iss; 
df mo_ gain loss := df_closing book_bal - diesel_qty_available; 
df allow_gain_loss := (opening inv diesel + total mo_df_rcpt) * 5 / 1000; 
If abs(df_mo_gain_ loss) > abs(df_allow_gain_ loss) then 

tolerance_df := False; 
else 

tolerance_df := True; 
End if; 
-- adjust opening monthly inventory to the physical quantity on hand 
opening inv_diesel := diesel_ qty available; 


end df_acct_calc_952; 


end df acct_calc_952_pkg; 
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-- File: fuel_subsystem.mg_acct_calc_955.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package determines whether mogas fuel accountability is 
-- within tolerance. 


package mg_acct_calc_955_pkg is 


procedure mg _acct_calc_955( 
total mo_mg iss: in integer; 
total mo_mg rcpt: in integer; 
opening inv_mogas: in out integer; 
mogas_qty_available: in integer; 
tolerance_mg: out boolean ); 
end mg _acct_calc_955_pkg; 


package body mg_acct_calc_955_pkg is 


mg closing book_bal : Integer; 
mg mo _ gain loss: Integer; 
mg allow gain_loss : Integer; 


procedure mg_acct_calc_955( 
total mo_mg _ iss: in integer; 
total mo_mg rcpt: in integer; 
opening inv_mogas: in out integer; 
mogas_qty_available: in integer; 
tolerance_mg: out boolean ) is 


begin 

-- determine if monthly mogas accounting is within tolerance 
mg_closing book_bal := opening inv_mogas + total mo mg rept - total mo_mg iss; 
mg mo gain loss :=mg_closing book_bal - mogas qty available; 
mg allow_gain_loss := (opening_inv_mogas + total_mo mg rcpt) / 100; 
If abs(mg_mo_gain_loss) > abs(mg_allow_gain_ loss) then 

tolerance_mg := False; 
else 

tolerance _mg := True; 
End if; 
-- adjust opening monthly inventory to the physical quantity on hand 
opening inv_mogas := mogas_qty_available; 


end mg_acct_calc_955; 


end mg_acct_calc_955_pkg; 
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-- File: fuel_subsystem.jet_acct_calc_958.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package determines whether jet fuel accountability is 
-- within tolerance. 
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package jet_acct_calc_958 pkg is 


procedure jet_acct_calc_958( 
total_mo_jet_iss: in integer; 
total_mo_jet_rcpt: in integer; 
Opening inv_jet: in out integer; 
jet_qty_available: in integer; 
tolerance_jet: out boolean ); 
end jet_acct_calc_958 pkg; 


package body jet_acct_calc_958 pkg is 


jet_closing book_bal : Integer; 
jet_mo_gain_loss : Integer; 
jet_allow_gain_loss : Integer; 


procedure jet_acct_calc_958( 
total mo_jet_iss: in integer; 
total mo_jet_rcpt: in integer; 
Opening inv jet: in Out integer; 
jet_qty_available: in integer; 
tolerance jet: out boolean ) is 


begin 
-- determine 1f monthly jet fuel accountability is within tolerance 
jet_closing_book_bal := opening inv_jet+ total_mo_jet_rcpt - total_mo_jet iss; 
jet_mo_gain_loss := jet_closing_book_bal - jet_qty_available; 
jet_allow_gain_loss := (opening inv_jet + total _mo_jet_rcpt)/ 100; 
If abs(jet_mo_gain_ loss) > abs(jet_allow_gain_ loss) then 

tolerance_jet := False; 
else 


tolerance_jet := True; 
End If; 


-- adjust opening monthly inventory to the physical quantity on hand 
opening inv_ jet :=jet_qty available; 
end jet_acct_calc_958; 


end jet_acct_calc_958 pkg; 
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-- File: text_string pkg.a 

-- Author: Lawrence A. Kominiak, Major, USA 

-- Project: Fuel Automated Subsystem of ICS3 

-- Date: February 1998 

-- Description: This package defines the text_ string type, as a 
-- string of 100 characters. 


package text_string_ pkg is 
subtype text_string is string(1..100); 


end text_string_ pkg; 
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Figure 1. Bulk Receipt Graphical User Interface 
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Figure 2. Other Receipt Graphical User Interface 
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Figure 3. Bulk Issue Graphical User Interface 
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Figure 4. Other Issue Graphical User Interface 
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Figure 5. Fuel On Hand Interface 
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Figure 6. Fuel Accountability Interface 
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